beginning to make into an R packages