-- https://github.com/minoki/my-atcoder-solutions
import Data.List
import Data.Monoid
import Control.Monad

main = do
  n <- readLn
  tasks <- fmap (sortBy (\(a,b) (a',b') -> compare b b' <> compare a a')) $ replicateM n $ do
    [a,b] <- map read . words <$> getLine
    return (a,b :: Int)
  let xs = tail $ scanl' (+) 0 $ map fst tasks
  putStrLn $ if and $ zipWith (<=) xs (map snd tasks)
             then "Yes"
             else "No"
