program abc
	implicit none
	integer :: x,n,m,nn,b
    integer :: an(10000)=0 
    double precision :: a

	read(*,*) n,m
	read(*,*) (an(x),x=1,n)
	
	do x = 1, n
		nn = nn + an(x)
	enddo
    
    a = nn / (4. * m)
    b = 0

	do x = 1, n
    	if(dble(an(x)) >= a) b = b + 1
    enddo

	if(b > m) then
		write(*,*) "Yes"
	else
    	write(*,*) "No"
    endif
    
end program abc