main = do
  [n,m] <- (map read . words) <$> getLine
  as <- (map read . words) <$> getLine
  let thr = fromIntegral (sum as) / fromIntegral (4 * m)
  putStrLn $ if length [0 | a <- as , fromIntegral a >= thr] >= m
    then "Yes"
    else "No"
