initial deposit of R code, test R code and sample input file