_,n,*a=`sort|uniq -c`.split.map &:to_i
puts a.max<-~n/2?:YES: :NO