Version 0.1.1

prdm0 · Apr 23, 2024 · 39335ff · 39335ff
1 parent c683837
commit 39335ff
Show file tree

Hide file tree

Showing 15 changed files with 9 additions and 62 deletions.
diff --git a/.github/workflows/test-parallel-windows.yaml b/.github/workflows/test-parallel-windows.yaml
diff --git a/R/accept_reject.r b/R/accept_reject.r
@@ -244,14 +244,6 @@ accept_reject <-
           FUN = one_step,
           mc.cores = n_cores
           )))
-    } else if(parallel && .Platform$OS.type == "windows"){
-      cl <- parallel::makeCluster(getOption("cl.cores", 1L))
-      capture.output(
-        r <- unlist(parallel::parLapply(
-          X = n_each_core,
-          fun = one_step
-      )))
-      parallel::stopCluster(cl)
     } else {
       r <- one_step(n)
     }

diff --git a/README.md b/README.md
@@ -289,7 +289,7 @@ case_1 <- accept_reject(
   xlim = c(0, 10)
 )
 toc()
-#> 7.294 sec elapsed
+#> 0.491 sec elapsed
 
 # Specifying the base probability density function
 tic()
@@ -305,7 +305,7 @@ case_2 <- accept_reject(
   c = 1.2
 )
 toc()
-#> 2.633 sec elapsed
+#> 0.153 sec elapsed
 
 # Visualizing the results
 p1 <- plot(case_1)

diff --git a/docs/articles/accept_reject.html b/docs/articles/accept_reject.html
diff --git a/docs/articles/inspect.html b/docs/articles/inspect.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,5 +4,5 @@ pkgdown_sha: ~
 articles:
   accept_reject: accept_reject.html
   inspect: inspect.html
-last_built: 2024-04-23T11:53Z
+last_built: 2024-04-23T17:24Z
 
diff --git a/docs/reference/figures/README-unnamed-chunk-2-1.png b/docs/reference/figures/README-unnamed-chunk-2-1.png
diff --git a/docs/reference/figures/README-unnamed-chunk-3-1.png b/docs/reference/figures/README-unnamed-chunk-3-1.png
diff --git a/docs/reference/figures/README-unnamed-chunk-5-1.png b/docs/reference/figures/README-unnamed-chunk-5-1.png
diff --git a/docs/search.json b/docs/search.json
diff --git a/man/figures/README-unnamed-chunk-2-1.png b/man/figures/README-unnamed-chunk-2-1.png
diff --git a/man/figures/README-unnamed-chunk-3-1.png b/man/figures/README-unnamed-chunk-3-1.png
diff --git a/man/figures/README-unnamed-chunk-5-1.png b/man/figures/README-unnamed-chunk-5-1.png
diff --git a/tests/testthat/test-time-parallel.R b/tests/testthat/test-time-parallel.R
@@ -12,20 +12,14 @@ simulation <- function(n, parallel = FALSE){
     parallel = parallel
   )
 
-  # Calcular o tempo de execução
   end_time <- Sys.time()
   execution_time <- end_time - start_time
 
-  # Imprimir o tempo de execução
   cat("Tempo de execução: ", execution_time, " segundos\n")
 
-  # Imprimir as primeiras observações
   cat("Primeiras observações:\n")
   print(head(x))
 
-  # Retornar o resultado
   return(x)
 }
 simulation(n = 1000, parallel = FALSE)
-
-simulation(n = 1000, parallel = TRUE)