[Picante-commits] r245 - pkg/man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri May 31 21:21:13 CEST 2013
Author: skembel
Date: 2013-05-31 21:21:13 +0200 (Fri, 31 May 2013)
New Revision: 245
Modified:
pkg/man/expected.pd.Rd
Log:
Further shortening of documentation lines to pass r-devel check cleanly
Modified: pkg/man/expected.pd.Rd
===================================================================
--- pkg/man/expected.pd.Rd 2013-05-31 18:48:07 UTC (rev 244)
+++ pkg/man/expected.pd.Rd 2013-05-31 19:21:13 UTC (rev 245)
@@ -43,11 +43,13 @@
randtree <- rcoal(300)
randtree.pd.ub <- variance.pd(randtree, upper.bound=TRUE)
randtree.pd.exact <- variance.pd(randtree, upper.bound=FALSE)
-plot(expected.pd(randtree), xlab="Number of tips", ylab="Phylogenetic diversity (PD)", type="l", log="xy")
+plot(expected.pd(randtree), xlab="Number of tips",
+ ylab="Phylogenetic diversity (PD)", type="l", log="xy")
lines(randtree.pd.exact$expected.pd+1.96*sqrt(randtree.pd.exact$variance.pd), lty=2)
lines(randtree.pd.exact$expected.pd-1.96*sqrt(randtree.pd.exact$variance.pd), lty=2)
lines(randtree.pd.ub$expected.pd+1.96*sqrt(randtree.pd.ub$variance.pd), lty=3)
lines(randtree.pd.ub$expected.pd-1.96*sqrt(randtree.pd.ub$variance.pd), lty=3)
-legend("bottomright", lty=c(1,2,3), legend=c("Expected PD","95 percent CI (exact)","95 percent CI (upper bound)"))
+legend("bottomright", lty=c(1,2,3), legend=c("Expected PD",
+ "95 percent CI (exact)","95 percent CI (upper bound)"))
}
\keyword{univar}
More information about the Picante-commits
mailing list