EvalSmooth function

Evaluate a fitted smooth term in a fitted model