program main
integer N,M,i,j
integer,allocatable,dimension(:) :: A
read (*,*) N,M
allocate(A(N))
read (*,*) A
j=0
do i=1,N
	if(A(i)*4*M .gt. sum(A)) j=j+1    
end do
if (j .ge. M )then
print *,"Yes"
else
print *,"No"
endif
end program