R-Computing-Lab
diff --git a/‎DESCRIPTION‎
Lines changed: 1 addition & 0 deletions b/‎DESCRIPTION‎
Lines changed: 1 addition & 0 deletions
diff --git a/‎man/isTwin.Rd‎
Lines changed: 2 additions & 1 deletion b/‎man/isTwin.Rd‎
Lines changed: 2 additions & 1 deletion
diff --git a/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-1.png‎
22.7 KB b/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-1.png‎
22.7 KB
diff --git a/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-2.png‎
16.6 KB b/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-2.png‎
16.6 KB
diff --git a/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-3.png‎
17.4 KB b/‎vignettes/v5_ASOIAF_files/figure-html/unnamed-chunk-5-3.png‎
17.4 KB
diff --git a/‎vignettes/v6_pedigree_model_fitting.Rmd‎
Lines changed: 3 additions & 2 deletions b/‎vignettes/v6_pedigree_model_fitting.Rmd‎
Lines changed: 3 additions & 2 deletions
@@ -47,6 +47,7 @@ Suggests:
     rmarkdown,
     testthat (>= 3.0.0),
     tidyverse,
+    mvtnorm,
     withr
 VignetteBuilder: 
     knitr
 
@@ -52,6 +52,8 @@ if (!has_mvtnorm) {
     "mvtnorm is not installed. Data simulation examples will not run.\n",
     "Install mvtnorm with: install.packages('mvtnorm')"
   )
+} else {
+  library(mvtnorm)
 }
 
 run_models <- has_openmx && has_mvtnorm
@@ -257,9 +259,8 @@ ytemp <- paste("S", rownames(add_matrix))
 
 ```{r show-phenotype}
 
-if (is.null(y)) {
+if (!exists("y")) {
   y <- rep(NA, nrow(add_matrix))
-
 }
 
 ```
Original file line number	Diff line number	Diff line change
`@@ -52,6 +52,8 @@ if (!has_mvtnorm) {`
`52`	`52`	`"mvtnorm is not installed. Data simulation examples will not run.\n",`
`53`	`53`	`"Install mvtnorm with: install.packages('mvtnorm')"`
`54`	`54`	`)`
	`55`	`+} else {`
	`56`	`+ library(mvtnorm)`
`55`	`57`	`}`
`56`	`58`
`57`	`59`	`run_models <- has_openmx && has_mvtnorm`
`@@ -257,9 +259,8 @@ ytemp <- paste("S", rownames(add_matrix))`
`257`	`259`
`258`	`260`	```{r show-phenotype}
`259`	`261`
`260`		`-if (is.null(y)) {`
	`262`	`+if (!exists("y")) {`
`261`	`263`	`y <- rep(NA, nrow(add_matrix))`
`262`		`-`
`263`	`264`	`}`
`264`	`265`
`265`	`266`	```