[Genabel-commits] r1974 - in pkg/MixABEL: R man

[noreply at r-forge.r-project.org]

Author: lckarssen
Date: 2015-05-11 21:37:36 +0200 (Mon, 11 May 2015)
New Revision: 1974

Modified:
   pkg/MixABEL/R/fgls.R
   pkg/MixABEL/man/GWFGLS.Rd
Log:
Fix long line in MixABEL's GWFGLS documentation that lead to an R CMD CHECK warning.


Modified: pkg/MixABEL/R/fgls.R
===================================================================
--- pkg/MixABEL/R/fgls.R	2015-05-11 19:35:15 UTC (rev 1973)
+++ pkg/MixABEL/R/fgls.R	2015-05-11 19:37:36 UTC (rev 1974)
@@ -238,7 +238,10 @@
 #' grel <- gkin
 #' grel[upper.tri(grel)] <- t(grel)[upper.tri(grel)]
 #' grel <- 2*grel
-#' Y <- as.vector(rmvnorm(1,mean=(X \%*\% betas_cov),sigma=s2*(modelh2*grel+diag(dim(grel)[1])*(1-modelh2))))
+#' Y <- as.vector(rmvnorm(1,
+#'                        mean=(X \%*\% betas_cov),
+#'                        sigma=s2*(modelh2*grel + diag(dim(grel)[1])*(1-modelh2))
+#'                        ))
 #' length(Y)
 #' Y[2] <- NA
 #' df@@phdata$Y <- Y

Modified: pkg/MixABEL/man/GWFGLS.Rd
===================================================================
--- pkg/MixABEL/man/GWFGLS.Rd	2015-05-11 19:35:15 UTC (rev 1973)
+++ pkg/MixABEL/man/GWFGLS.Rd	2015-05-11 19:37:36 UTC (rev 1974)
@@ -92,7 +92,10 @@
 grel <- gkin
 grel[upper.tri(grel)] <- t(grel)[upper.tri(grel)]
 grel <- 2*grel
-Y <- as.vector(rmvnorm(1,mean=(X \\\%*\\\% betas_cov),sigma=s2*(modelh2*grel+diag(dim(grel)[1])*(1-modelh2))))
+Y <- as.vector(rmvnorm(1,
+                       mean=(X \\\%*\\\% betas_cov),
+                       sigma=s2*(modelh2*grel + diag(dim(grel)[1])*(1-modelh2))
+                       ))
 length(Y)
 Y[2] <- NA
 df at phdata$Y <- Y