import std.stdio,std.math,std.string,std.conv,std.typecons,std.format;
import std.algorithm,std.range,std.array;

T[] readarr(T=long)(){return readln.chomp.split.to!(T[]);}
void scan(T...)(ref T args){auto input=readln.chomp.split;foreach(i,t;T)args[i]=input[i].to!t;}

//END OF TEMPLATE

void main(){
    ulong m,n;
    ulong[] a;
    scan(n,m);
    a=readarr!ulong;
    auto sum=a.csum;
    (a.filter!(x=>sum/(4*m)).array.length>=m?"Yes":"No").writeln;
}

auto csum(ulong[] a){
    ulong tmp;
    foreach(t;a)tmp+=t;
    return tmp;
}
