Update functions2.R

correct 1se rule, add 1sea (sqrt(fold))