local n, m = io.read("*n", "*n")
local a = {}
local sum = 0
for i = 1, n do
  a[i] = io.read("*n")
  sum = sum + a[i]
end
table.sort(a, function(x, y) return x > y end)
print(a[m] * 4 * m < sum and "No" or "Yes")
