   program abc161b
      implicit none
      integer::n,m
      integer,allocatable,dimension(:)::A
      integer::i,j,judge,sum
      real::m1

      read *,n,m
      allocate(A(n))
      read *,A(1:n)

      sum=0
      do i=1,n
         sum=sum+A(i)
      end do

      m1=sum*1.0/(4.0*m)

      judge=0
      do j=1,n
         if (m1<A(j)) judge=judge+1
      end do

      if (judge>=m) then
         print *,'Yes'
      else
         print *,'No'
      end if
      stop

   end program abc161b