Create stattooltest.R