program popular_vote
    integer m, n, i
    integer :: ans = 0, cnt = 0
    integer,allocatable :: a(:)
    read *, n, m
    allocate(a(n))
    read *, a(n)
    do i = 1, n
        ans = ans + a(i)
    end do
    do i = 1, n
        if(a(i)/ans > 1/(4*m))then
            cnt = cnt + 1
            if(cnt >= m)then
                print *, 'Yes'
                exit
            else if(cnt < m .and. i .eq. n)then
                print *, 'No'
                exit
            end if
        end if
    end do
end program