import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
  [n, m] <- map read . words <$> getLine
  as <- map read . words <$> getLine
  putStrLn $ if solve n m as then "Yes" else "No"


solve :: Int -> Int -> [Int] -> Bool
solve n m as = (length $ filter (choosable total m) as) >= m
  where
    total = sum as

choosable :: Int -> Int -> Int -> Bool
choosable total m a = 4*m * a >= total

test :: IO ()
test = do
  print $ solve 4 1 [5, 4, 2, 1] == True
  print $ solve 3 2 [380, 19, 1] == False
  print $ solve 12 3 [4, 56, 78, 901, 2, 345, 67, 890, 123, 45, 6, 789] == True
  putStrLn "test finished"
