Merge pull request #21 from cmusso86/update_release

one .rds in exdata
cmusso86 · Jun 19, 2024 · b685a25 · b685a25
2 parents 0a185a2 + 8b0dc22
commit b685a25
Show file tree

Hide file tree

Showing 7 changed files with 40 additions and 37 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -8,3 +8,5 @@
 ^docs$
 ^pkgdown$
 ^\.github$
+^doc$
+^Meta$
diff --git a/.gitignore b/.gitignore
@@ -4,3 +4,5 @@
 .httr-oauth
 .DS_Store
 .quarto
+/doc/
+/Meta/
diff --git a/docs/articles/simple_mlp.html b/docs/articles/simple_mlp.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.9
 pkgdown_sha: ~
 articles:
   simple_mlp: simple_mlp.html
-last_built: 2024-06-19T17:51Z
+last_built: 2024-06-19T18:06Z
 urls:
   reference: https://cmusso86.github.io/recalibratiNN/reference
   article: https://cmusso86.github.io/recalibratiNN/articles

diff --git a/inst/extdata/mse_cal b/inst/extdata/mse_cal
@@ -0,0 +1 @@
+42
diff --git a/inst/extdata/mse_cal.txt b/inst/extdata/mse_cal.txt
@@ -0,0 +1 @@
+42
diff --git a/vignettes/simple_mlp.Rmd b/vignettes/simple_mlp.Rmd
@@ -11,6 +11,7 @@ vignette: >
 ```{r, include = FALSE}
 knitr::opts_chunk$set(
   collapse = TRUE,
+  eval = F, 
   comment = "#>"
 )
 ```
@@ -98,21 +99,27 @@ y_hat_test <- predict(model_nn, x_test)
 ```
 
 
-```{r echo = F}
-file_path1 <- system.file("extdata", "MSE_cal.rds", package = "recalibratiNN")
-MSE_cal <-readRDS(file_path1)
+```{r eval=T}
+file_path1 <- system.file("extdata", "mse_cal.txt", package = "recalibratiNN")
+read.table(file_path1) |> as.numeric()
+```
+
+
+```{r, eval = T}
+file_path1 <- system.file("extdata", "mse_cal.rds", package = "recalibratiNN")
+readRDS(file_path1)
 
-file_path2 <- system.file("extdata", "y_hat_cal.rds", package = "recalibratiNN")
-y_hat_cal <- readRDS(file_path2)
 
-y_hat_test <- file_path3 <- system.file("extdata", "y_hat_test.rds", package = "recalibratiNN")
-y_hat_test <- readRDS(file_path3)
 
 ```
 
-```{r eval = F}
+```{r, eval=F}
 # carregar os vetores .rds
+file_path2 <- system.file("extdata", "y_hat_cal.rds", package = "recalibratiNN")
+y_hat_cal <- readRDS(file_path2)
 
+y_hat_test <- file_path3 <- system.file("extdata", "y_hat_test.rds", package = "recalibratiNN")
+y_hat_test <- readRDS(file_path3)
 y_hat_cal <- readRDS("y_hat_cal.rds") |> as.numeric()
 y_hat_test <- readRDS("y_hat_test.rds")|> as.numeric()
 MSE_cal <- readRDS("MSE_cal.rds")|> as.numeric()