fixing add.scale.bar()

[ape.git] / man / theta.s.Rd

diff --git a/man/theta.s.Rd b/man/theta.s.Rd
index 70115d0d5658ad6c1c55b66307a04d89ee8475e3..bd7a3789340814a584e56d1c030101ed902e2480 100644 (file)
--- a/man/theta.s.Rd
+++ b/man/theta.s.Rd
@@ -40,9 +40,8 @@ theta.s(s, n, variance = FALSE)
 }
 \examples{
 data(woodmouse)
-y <- seg.sites(woodmouse)
-s <- length(y)
-n <- length(woodmouse)
+s <- length(seg.sites(woodmouse))
+n <- nrow(woodmouse)
 theta.s(s, n)
 theta.s(s, n, variance = TRUE)
 }