Update example and add a test

Author: ArthurLeroy

R/package-MagmaClustR.R

@@ -33,17 +33,17 @@
 #' @section Examples:
 #'
 #' ### Simulate a dataset, train and predict with Magma \cr
-#' set.seed(42) \cr
+#' set.seed(4242) \cr
 #' data_magma <- simu_db(M = 11, N = 10, K = 1) \cr
 #' magma_train <- data_magma %>% subset(ID %in% 1:10) \cr
-#' magma_test <- data_magma %>% subset(ID == 11) %>% head(5) \cr
+#' magma_test <- data_magma %>% subset(ID == 11) %>% head(7) \cr
 #'
 #' magma_model <- train_magma(data = magma_train) \cr
 #' magma_pred  <- pred_magma(data = magma_test, trained_model = magma_model,
 #' grid_inputs = seq(0, 10, 0.01)) \cr
 #'
 #' ### Simulate a dataset, train and predict with MagmaClust \cr
-#' set.seed(42) \cr
+#' set.seed(4242) \cr
 #' data_magmaclust <- simu_db(M = 4, N = 10, K = 3) \cr
 #' list_ID = unique(data_magmaclust$ID) \cr
 #' magmaclust_train <- data_magmaclust %>% subset(ID %in% list_ID\[1:11\]) \cr

tests/testthat/test-test-general-execution-magma.R

@@ -0,0 +1,4 @@
+test_that("simu_db() returns a dataframe", {
+  simu_db() %>% inherits('data.frame')
+})
+