import Data.List (sortBy)

sortDesc::[Int]->[Int]
sortDesc = sortBy $ flip compare

main = do
  [n,m] <- map read . words <$> getLine
  an <- map read . words <$> getLine
  let bn = sortDesc an
  let s = sum an
  putStrLn $ if all (\p -> (div s (4*m)) <= p) (take m bn) then "Yes" else "No"