N, M = gets.split.map &:to_i
S = $<.map { |s| eval "[%d, %d].sort" % s.split }
deg = [0] * N
S.each { |t| deg[t[0]] += 1; deg[t[1]] += 1 }
odd = (0...N).select { |i| deg[i] % 2 == 1 }
uf = [-1] * N
S.each { |t| uf[t[0]] = t[0]; uf[t[1]] = t[1] }
anc = lambda { |v| uf[v] == v ? v : uf[v] = anc[uf[v]] }
S.each { |t| uf[anc[t[0]]] = anc[t[1]] }
puts odd.size > 2 || uf.reject { |v| v == -1 } .map { |v| anc[v] } .uniq.size > 1 ? :NO : :YES