import Control.Monad
import Data.List
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
  n <- readLn
  as <- sort <$> replicateM n ((\[a, b] -> (b, a)) . map (read . BS.unpack) . BS.words <$> BS.getLine)
  let x = scanl (\(_, b) (c, d) -> (c, b + d)) (head as) (tail as)
  putStrLn $ if any (uncurry (<)) x then "No" else "Yes"



