import Data.Char
import Data.List
import qualified Data.ByteString.Char8 as B
main=B.interact$B.pack.f.unfoldr(B.readInt.B.dropWhile isSpace)
f (n:abs) =sol (sort as) (sort bs)
    where
        (as,bs) = splitAt n abs
sol [] _ = "Yes"
sol (a:as) (b:bs)
    | a==b = sol as bs
    | a>b = "No"
    | otherwise = sol (ins (a+2) as) (ins (b+1) bs)

ins e [] = [e]
ins e (a:as)
    | e<=a = e:a:as
    | otherwise = a:ins e as