n, m = io.read("*n", "*n")
a = {}
asum = 0
for i = 1, n do
  a[i] = io.read("*n")
  asum = asum + a[i]
end
c = 0
for i = 1, n do
  if asum <= a[i] * 4 * m then
    c = c + 1
  end
end
print(m <= c and "Yes" or "No")
