program main
      implicit none
      integer m,n,i,j
      real x
      integer,allocatable :: a(:)

      read *, n,m
      allocate( a(n) )
      read *, a

      j = 0
      do i = 1, n
        x = real(a(i))/real(sum(a(:)))
        if ( x < 1.0/real((4*m))) then
        else
          j = j + 1
        end if
      end do

      if ( j < m ) then
              print *, "No"
      else
              print *, "Yes"
      end if

end program main