Update squaretest.R