Was a test script, now replaced with wheatExample.R