Fixed frndly_nickTest.R script so it actually works