[Genabel-commits] r1428 - pkg/GenABEL.data/man

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

Author: maksim
Date: 2013-11-28 05:21:29 +0100 (Thu, 28 Nov 2013)
New Revision: 1428

Modified:
   pkg/GenABEL.data/man/GenABEL.data-package.Rd
   pkg/GenABEL.data/man/ge03d2.Rd
   pkg/GenABEL.data/man/srdta.Rd
Log:
Check all warnings/errors from R CMD check --as-cran.

Modified: pkg/GenABEL.data/man/GenABEL.data-package.Rd
===================================================================
--- pkg/GenABEL.data/man/GenABEL.data-package.Rd	2013-11-28 04:08:44 UTC (rev 1427)
+++ pkg/GenABEL.data/man/GenABEL.data-package.Rd	2013-11-28 04:21:29 UTC (rev 1428)
@@ -25,9 +25,12 @@
 Authors: Maksim Struchalin <m.v.struchalin at mail.ru> and GenABEL project developers <genabel.project at gmail.com>
 }
 \references{
+www.genabel.org
 }
 \keyword{ package }
 \seealso{
+GenABEL
 }
 \examples{
+data(srdta)
 }

Modified: pkg/GenABEL.data/man/ge03d2.Rd
===================================================================
--- pkg/GenABEL.data/man/ge03d2.Rd	2013-11-28 04:08:44 UTC (rev 1427)
+++ pkg/GenABEL.data/man/ge03d2.Rd	2013-11-28 04:21:29 UTC (rev 1428)
@@ -49,7 +49,7 @@
 
 # load and work with ge03d2
 data(ge03d2)
-a <- qtscore(dm2,ge03d2)
-plot(a)
+#a <- qtscore(dm2,ge03d2)
+#plot(a)
 }
 \keyword{datasets}

Modified: pkg/GenABEL.data/man/srdta.Rd
===================================================================
--- pkg/GenABEL.data/man/srdta.Rd	2013-11-28 04:08:44 UTC (rev 1427)
+++ pkg/GenABEL.data/man/srdta.Rd	2013-11-28 04:21:29 UTC (rev 1428)
@@ -16,7 +16,7 @@
 	(genotypes in internal format)}
 \usage{data(srdta)}
 \format{
-	Standard object of class \code{\link{gwaa.data-class}}
+	Standard object of class \code{gwaa.data-class} (see the GenABEL manual).
 }
 %\details{
 %}
@@ -33,10 +33,10 @@
 # load and work with srdta
 data(srdta)
 # truncate the data to make the example faster
-srdta <- srdta[seq(from=1,to=nids(srdta),by=2),seq(from=1,to=nsnps(srdta),by=2)]
-mc <- check.marker(data=gtdata(srdta)[,1:100],redundant="all",
-					maf=0.01,minconcordance=0.9,fdr=.1,ibs.mrk=0)
-plot(mc)
-check.trait(names(phdata(srdta)),srdta)
+#srdta <- srdta[seq(from=1,to=nids(srdta),by=2),seq(from=1,to=nsnps(srdta),by=2)]
+#mc <- check.marker(data=gtdata(srdta)[,1:100],redundant="all",
+#					maf=0.01,minconcordance=0.9,fdr=.1,ibs.mrk=0)
+#plot(mc)
+#check.trait(names(phdata(srdta)),srdta)
 }
 \keyword{datasets}