Update testfunctions.R