import Data.List

main = do
  li <- getLine
  let [n,m] = map read $ words li
  li <- getLine
  let as = map read $ words li
  let ans = compute n m as
  putStrLn (if ans then "Yes" else "No")

{-
total / 4M <= am が条件
total <= 4M * am
-}

compute :: Int -> Int -> [Int] -> Bool
compute n m as = total <= 4 * m * am
  where
    as1 = reverse $ sort as
    am = as1 !! pred m
    total = sum as
