program main
  
  implicit none
  integer,allocatable :: a(:)
  integer :: n, m ,num ,i, tol
  
  read(*,*) n, m
  allocate( a(n) )
  read(*,*) a
  
  num = 0
  tol = sum( a )
  do i = 1, n
    if( a(i) < 1e0/4e0/real(m)*real(tol)) then 
    else
      num = num + 1 
    end if
  end do

  if( num >= m ) then
    print*, "Yes" 
  else
    print*, "No" 
  end if
   
end program main
