object Main extends App {
  val input1 = readLine
  val input2 = readLine
  val N = input1.split(" ")(0).toInt
  val M = input1.split(" ")(1).toInt  
  
  var array: Array[Int] = Array.empty
  
  for(count1 <- 1 to N){
    var input3 = input2.split(" ")(count1 -1).toInt
    array = array :+ input3
  }
  
  val max = array.max
  var sorted = array.sorted.reverse
  
  if(sorted(M-1) < array.sum / (4*M)) println("No")
  else println("Yes")
}