import Data.List

f::[String]->[(Int,Int)]
f [] =[]
f (x:xs) =let (a:b:[])=map read (words x)::[Int]
          in (b,a):(f xs)

f2::[(Int,Int)]->Int->String
f2 [] _="Yes"
f2 ((b,a):xs) t=if b<a+t then "No" else f2 xs (t+a)

main = do
       x<-getLine
       ys<-getContents
       let ls=sort $ f $ lines ys
       putStrLn $ f2 ls 0 