local n,m=io.read("n","n")
local sum=0
local a={}
for i=1,n do
    input=io.read("n")
    a[i]=input
    sum=sum+input
end
table.sort(a)

local counter=m
for i=n,1,-1 do
    if a[i]>=sum/(4*m) then
        counter=counter-1
    end
end
print(counter<=0 and "Yes" or "No")