import Data.Bool (bool)

main :: IO ()
main = do
  getLine
  ls <- map read . words <$> getLine
  putStrLn (f ls)

f :: [Int] -> String
f = bool "No" "Yes" . ((<) <$> (* 2) . fst <*> snd) . foldr step (0, 0)
  where
    step l (m, s) = (bool m l (m < l), s + l)
