program abc161b
  implicit none
  integer :: n, m
  integer,allocatable :: a(:)
  read *, n, m
  allocate(a(n))
  read *, a
  if (count(a*4*m>=sum(a))>=m) then
     print *, 'Yes'
  else
     print *, 'No'
  end if
end program abc161b
