solve [] _ = 0
solve (x:xs) base 
  | x < base = solve xs base
  | otherwise = 1 + solve xs base

main = do
  [n,m] <- map read . words <$> getLine :: IO [Int]
  xs <- map read . words <$> getLine :: IO [Int]
  let
    base = (sum xs) `div` (4 * m)
    res = solve xs base
  
  case compare res m of
    LT -> putStrLn "No"
    _ -> putStrLn "Yes"