Test use_article() and github actions

.Rbuildignore

@@ -7,3 +7,4 @@
 ^docs$
 ^pkgdown$
 ^data-raw$
+^vignettes/articles$

tests/testthat/test-IES.R

@@ -12,3 +12,10 @@ test_that("IES get the same result with R and RcppArmadillo", {
   q <- 16
   expect_equal(r_IES_compare(X, n, q), c_IES_compare(X, n, q))
 })
+test_that("IES R-version works", {
+  data <- data_numeric_regression
+  X <- data[-which(names(data) == "y")]
+  n <- 1000
+  q <- 16
+  expect_true(length(r_IES(X, n, q)) == 1000)
+})

vignettes/articles/IES_Simulation.Rmd

@@ -0,0 +1,25 @@
+---
+title: "IES_Simulation"
+---
+
+```{r, include = FALSE}
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>"
+)
+```
+
+```{r setup}
+library(dbsubsampling)
+library(pbmcapply)
+```
+
+I'll write a small snippet of code here to check if it works on the github remote server. Mainly because `mclapply` doesn't run on windows, in addition to testing to see if parallel computation is possible and estimating the runtime.
+
+```{r}
+data <- data_IES_Case_1_Train
+start_time <- Sys.time()
+result <- pbmclapply(1:10000, function(x) lm(y ~. , data = data)[["coefficients"]][1], mc.cores = 5)
+print(Sys.time() -  start_time)
+```
+