spreadTest.R