R script for nlmeODE's paper function calls