Update functions2.R

coefsdat typo!! adarf->adprf