calcfunpca.R update