Merge pull request #94 from TESTgroup-BNL/quick_updates

Minor updates

Author: Shawn P. Serbin

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spectratrait
 Title: A simple add-on package to aid in the fitting of leaf-level spectra-trait PLSR models
-Version: 1.1.0
+Version: 1.1.1
 Authors@R:
   c(person(given = "Julien",
            family = "Lamour",

R/create_data_split.R

@@ -11,7 +11,7 @@
 ##' and validation dataset (val_data)
 ##' 
 ##' @importFrom magrittr %>%
-##' @importFrom dplyr mutate group_by_at slice n vars all_of 
+##' @importFrom dplyr mutate group_by_at slice n vars all_of row_number
 ##' 
 ##' @author Julien Lamour, Jeremiah Anderson, Shawn P. Serbin
 ##' @export

spectratrait_1.1.0.pdf renamed to spectratrait_1.1.1.pdf

@@ -1,4 +1,3 @@
 library(testthat)
 library(spectratrait)
-
-testthat::test_check("spectratrait")
+test_check("spectratrait")

tests/testthat.R

@@ -17,11 +17,11 @@ test_that("Generating a data split using the dplyr approach doesn't throw an err
 })
 
 test_that("Generating a data split using the base approach doesn't throw an error or generate duplicates between cal. and val. data", {
-  plot<- rep(c("plot1", "plot2", "plot3"),each=42)
+  plot<- rep(c("plot1", "plot2", "plot3"), each=42)
   season<- rep(1:6, 21)
   disease<- c(rep(0,84), rep(1,42))
   d<- seq(1:126)
-  df <- data.frame(plot,season,disease,d)
+  df <- data.frame(plot, season, disease, d)
   df <- df %>% mutate(id=row_number())
 
   split_data <- spectratrait::create_data_split(dataset=df, approach="base",