import Control.Applicative
import Data.Bool (bool)

main :: IO ()
main = solve <$> f <*> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> [Int] -> String
solve [_, m] as = bool "No" "Yes" . (>= m) . length $ filter f as
  where
    w = sum as
    f x = 4 * m * x >= w
