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) =if s1 <= st && s2 <= st then "Yes" else "No"
    where
        (as,bs) = splitAt n abs
        s1 = sum(map sol1$zip as bs)
        s2 = sum(map sol2$zip as bs)
        st = sum bs - sum as
sol1 (a,b)
    | a<b = (b-a+1)`div`2
    | otherwise = 0
sol2 (a,b)
    | a>b = a-b
    | otherwise = 0