# https://atcoder.jp/contests/abc161/tasks/abc161_b
read n m
n=$((n))
m=$((m))
read a
A=($a)

sum=$((0))
for ((i = 0; i < n; i++)) ; do
  A[i]=$((A[i]))
  sum=$((sum + A[i]))
done
echo $sum >&2

num=$((0))
for ((i = 0; i < n; i++)) ; do
  if [ $((4*m*A[i])) -ge $((sum)) ] ; then
    num=$((num + 1))
  fi
done
echo $num >&2

if [ $((num)) -ge $((m)) ] ; then
  echo "Yes"
else
  echo "No"
fi

