program test
implicit none
integer(8) :: n,m,a(1000),i,j,k,total=0,count=0

read(*,*) n,m
read(*,*) (a(i),i=1,n)

do i=1,n
  total = total + a(i)
enddo

do i=1,n
  if(4*m*a(i) >= total) then
    count = count + 1
  endif
enddo

if(count >= m) then
  write(*,*) 'Yes'
else
  write(*,*) 'No'
endif

end