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.delete(-1).uniq.size > 1 ? :NO : :YES