local n, m = io.read("*n", "*n")
local points = {}
local all_point = 0
for i = 1, n do
    points[i] = io.read("*n")
    all_point = all_point + points[i]
end

table.sort(points, function(x, y) return x > y end)

if points[m] >= all_point / (4 * m) then
    print("Yes")
else
    print("No")
end