program main
    implicit none
    integer n,m
    integer, allocatable, dimension(:) :: a
    integer i,sum, d, count
    read(*,*) n,m
    allocate(a(n))
    read(*,*) a

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

    d = sum/(4*m)

    do i = 1,n
        if(a(i) > d) then
            count = count + 1
        end if
    end do

    if(count >= m) then
        write(*,*) "Yes"
    else
        write(*,*) "No"
    end if

end program