Create ssqfun.R