import Data.List
main = do
  [_,m] <- map (read::String->Int) . words <$> getLine
  items <- map (read::String->Int) . words <$> getLine
  let selectableitems = map (selectable items m) items
  putStrLn $ if m<=(length . filter (==True)) selectableitems then "Yes" else "No"

selectable items m item = if item*4*m < sum items then False else True