import java.util.Scanner
object Main {
  def main(args:Array[String]) = {
    val sc = new java.util.Scanner(System.in)
    val n,m = sc.nextInt
    val list = List.fill(n)(sc.nextInt) // nextIntがn回呼ばれる   
    val allPoint = list.sum
    val kijun = (allPoint.toDouble/(4D*m.toDouble)).toInt
    
    def kijunOver(x: Int, kijun: Long): Long = {
      x match{
        case x if x.toLong < kijun => 0
        case x if x.toLong >= kijun => 1 
      }
    }
    
    val list2 = list.map(kijunOver(_, kijun.toLong))
    list2.sum >= m match{
        case true => println("Yes")
        case false => println("No")
    }
  }
}
 