n,a,b=$<.map{|s|s.split.map &:to_i}
n*=$$
a.zip(b){|k,l|n[l]+=k}
puts n.max>n[0]?:NO:'YES'