with Ada.Text_IO;
use Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;
with Ada.Float_Text_IO;
use Ada.Float_Text_IO;

procedure Main is
	type ar is array(1..10000) of Integer;
	n:integer;
    m:integer;
    a:ar;
    cnt:integer;
    ans:integer;
begin
	get(n);
    get(m);
    cnt:=0;
    ans:=0;
    for i in 1..n loop
    	get(a(i));
        cnt:=cnt+a(i);
    end loop;
    cnt:=cnt/(4*m);
    for i in 1..n loop
    	if a(i)>=cnt then
        	ans:=1+ans;
        end if;
    end loop;
    if ans>=m then
    	put_line("Yes");
   	else
    	put_line("No");
    end if;
end Main;