import std;

alias sread = () => readln.chomp();
alias lread = () => readln.chomp.to!long();
alias aryread(T = long) = () => readln.split.to!(T[]);

void main()
{
    long n, m;
    scan(n, m);
    // writeln(m);

    auto a = aryread();
    // writeln(a);
    long sum_x;
    sum_x = sum(a);
    // writeln(sum_x);
    long cnt;
    foreach (i; 0 .. n)
    {
        if (sum_x <= a[i] * (4 * m))
        {
            cnt += 1;

        }
    }
    // writeln(cnt);
    if (cnt >= m)
    {
        writeln("Yes");
    }
    else
    {
        writeln("No");
    }

}

void scan(L...)(ref L A)
{
    auto l = readln.split;
    foreach (i, T; L)
    {
        A[i] = l[i].to!T;
    }
}
