let arr=readLine()!.characters.split{$0==" "}.map{Int(String($0))!}
var a=arr[0]
var b=arr[1]
let arr2=readLine()!.characters.split{$0==" "}.map{Int(String($0))!}
for i in 0..<a
{
    x += arr2[i]
}
var z = x / (4*b)
for i in 0..<a
{
    if(arr2[i]>z){
        y+=1
    }
}

if(y>=b){
    print("Yes")
}else{
    print("No")
}
