[Genabel-commits] r959 - in pkg/GenABEL: R man

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

Author: yurii
Date: 2012-09-17 13:31:09 +0200 (Mon, 17 Sep 2012)
New Revision: 959

Modified:
   pkg/GenABEL/R/polygenic_hglm.R
   pkg/GenABEL/man/polygenic_hglm.Rd
Log:
trying to cut the time spent in examples

Modified: pkg/GenABEL/R/polygenic_hglm.R
===================================================================
--- pkg/GenABEL/R/polygenic_hglm.R	2012-09-17 11:16:16 UTC (rev 958)
+++ pkg/GenABEL/R/polygenic_hglm.R	2012-09-17 11:31:09 UTC (rev 959)
@@ -47,7 +47,7 @@
 #' @examples 
 #' data(ge03d2ex.clean)
 #' set.seed(1)
-#' df <- ge03d2ex.clean[sample(1:nids(ge03d2ex.clean),200),autosomal(ge03d2ex.clean)]
+#' df <- ge03d2ex.clean[,sample(autosomal(ge03d2ex.clean),1000)]
 #' gkin <- ibs(df,w="freq")
 #' 
 #' # ----- for quantitative traits

Modified: pkg/GenABEL/man/polygenic_hglm.Rd
===================================================================
--- pkg/GenABEL/man/polygenic_hglm.Rd	2012-09-17 11:16:16 UTC (rev 958)
+++ pkg/GenABEL/man/polygenic_hglm.Rd	2012-09-17 11:31:09 UTC (rev 959)
@@ -51,7 +51,7 @@
 \examples{
 data(ge03d2ex.clean)
 set.seed(1)
-df <- ge03d2ex.clean[sample(1:nids(ge03d2ex.clean),200),autosomal(ge03d2ex.clean)]
+df <- ge03d2ex.clean[,sample(autosomal(ge03d2ex.clean),1000)]
 gkin <- ibs(df,w="freq")
 
 # ----- for quantitative traits