plot KelvinKer[Range[0, 5], x], x from 0 to 7