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 sum(map sol$zip as bs) <= (sum bs-sum as) then "Yes" else "No"
    where
        (as,bs) = splitAt n abs
sol (a,b)
    | a==b = 0
    | a<b = (b-a+1)`div`2
    | a>b = a-b