main = do
  [n, m]<- map read . words<$>getLine :: IO[Float]
  as <- map read . words<$>getLine :: IO [Float]
  putStrLn $ if fromIntegral(length $ filter (\x -> x*4*m >= (sum as)) as) >= m
     then "Yes"
     else "No"