added predline to functions.R
some stuff on fold