program ABC161B
    implicit none
    integer(8)::N,M,a_select,i,A_all
    integer(8),allocatable,dimension(:)::A
    read*,N,M
    allocate(A(N))
    read*,A
    a_select=0
    A_all=sum(A)

    do i=1,N
        if(4*M*A(i)>=A_all)a_select=a_select+1
    end do

    if(a_select>=M)then
        print'(A)',"Yes"
    else
        print'(A)',"No"
    end if
end program ABC161B