program main
  implicit none
  integer :: M,N
  integer,allocatable :: A(:)
  integer :: i
  integer :: out, tot
  read(*,*) N, M
  allocate(A(N))
  read(*,*) A(:)
  out = 0
  tot = sum(A)
  do i = 1,N
     if (A(i) >= tot/(4*M)*1 ) out = out + 1
  end do
  if (out >= M ) then
     write(*,'(a)') 'Yes'
  else 
     write(*,'(a)') 'No'
  end if
end program main
