Create transformstats.R