program popular_vote
  implicit none
  integer :: n, m, i
  real(8) :: a(100) = 0.d0, x
  read(*,*) n, m
  read(*,*) a(1:n)
  x = sum(a(1:n))/(4.d0*m)
  do i = 1, n
    if (a(i) >= x) m = m-1
  end do
  if (m > 0) then
    write(*,'(a)') "No"
  else
    write(*,'(a)') "Yes"
  end if
end program popular_vote