import java.util.Scanner

object Main extends App {
  val sc=new java.util.Scanner(System.in)
  val n,m = sc.nextInt()
  val A = (0 until n) map (_ => sc.nextInt())
  
  def solve(n : Int, m : Int, A : Seq[Int]) : String = {
    var sum = 0.0
    for(i <- 0 until n){
      sum += A(i)
    }
    var cnt = 0
    val fourm = m * 4.0
    for(i <- 0 until n){
      if(A(i) >= sum / fourm )cnt+=1
    }
    if(cnt >= m)"Yes"
    else "No"
  }

  println(solve(n,m,A))
}