Create ssq.R