import std.stdio, std.math, std.algorithm, std.array, std.string, std.conv, std.container, std.range;
T[] Reads(T)() { return readln.split.to!(T[]); }
alias reads = Reads!int;
void scan(Args...)(ref Args args) {
    string[] ss = readln.split;
    foreach (i, ref arg ; args) arg = ss[i].parse!int;
}

void main() {
    int n,m; scan(n,m);
    int[] a = reads();
    long tot = a.sum();
    auto cnt = a.filter!(i => i >= 1.0 * tot / 4 / m)
                .array
                .length;
    writeln(cnt >= m ? "Yes" : "No");
}

