program main
integer :: n,m,cnt = 0
integer,allocatable :: a(:)

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

do i = 1,n
if (a(i) >= ceiling(sum(a)/real(4*m))) cnt = cnt + 1
end do
if(cnt >= m) then
write(*,*)'Yes'
else
write(*,*)'No'
end if
end program main