program atcoder0404_B
  integer,dimension(:),allocatable::A
  read(5,*)N,M
  allocate(A(N))
  read(5,*)A
  do I=1,N-1
     TC=A(I)
     IC=I
     do J=I+1,N
        if(TC>A(J)) then
           TC=A(J)
           IC=J
        end if
     end do
     A(IC)=A(I)
     A(I)=TC
  end do
  if(A(N-M+1)*4*M>=sum(A)) then
     write(6,*)'Yes'
  else
     write(6,*)'No'
  end if
end program atcoder0404_B