Shorten line length in doc examples

diff --git a/R/seqB.R b/R/seqB.R
index a64b598a4d653535a49c6c17a47f7dbacfedc9a8..8685f390bc738f87b1133d14da9988193e97a36f 100644 (file)
--- a/R/seqB.R
+++ b/R/seqB.R
@@ -59,12 +59,14 @@
 #' abline(h=1/(20/0.01+1), col="red")
 #' abline(v=res1$Rhat, col="blue")
 #' abline(v=Rpost$supp[loc], col="purple")
 #' abline(h=1/(20/0.01+1), col="red")
 #' abline(v=res1$Rhat, col="blue")
 #' abline(v=Rpost$supp[loc], col="purple")

-#' legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"), col=c("red", "black", "blue", "purple"), lty=1)
+#' legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"),
+#'        col=c("red", "black", "blue", "purple"), lty=1)

 #' plot(Rpost$supp, Rpost$pmf, col="black", type="l", xlim=c(0.5, 1.5), xlab="", ylab="")
 #' abline(h=1/(20/0.01+1), col="red")
 #' abline(v=res1$Rhat, col="blue")
 #' abline(v=Rpost$supp[loc], col="purple")
 #' plot(Rpost$supp, Rpost$pmf, col="black", type="l", xlim=c(0.5, 1.5), xlab="", ylab="")
 #' abline(h=1/(20/0.01+1), col="red")
 #' abline(v=res1$Rhat, col="blue")
 #' abline(v=Rpost$supp[loc], col="purple")

-#' legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"), col=c("red", "black", "blue", "purple"), lty=1)
+#' legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"),
+#'        col=c("red", "black", "blue", "purple"), lty=1)

 #'
 #' ## ========================================================= ##
 #' ## Compute Rhat using only the first five weeks of data      ##
 #'
 #' ## ========================================================= ##
 #' ## Compute Rhat using only the first five weeks of data      ##

diff --git a/man/seqB.Rd b/man/seqB.Rd
index 0628a89d30158f6f032d5c8e9abddaf2e14a37ee..184f4764f110b0ef8b85a87f726cf9bd508d9e1a 100644 (file)
--- a/man/seqB.Rd
+++ b/man/seqB.Rd
@@ -71,12 +71,14 @@ plot(Rpost$supp, Rpost$pmf, col="black", type="l", xlab="", ylab="")
 abline(h=1/(20/0.01+1), col="red")
 abline(v=res1$Rhat, col="blue")
 abline(v=Rpost$supp[loc], col="purple")
 abline(h=1/(20/0.01+1), col="red")
 abline(v=res1$Rhat, col="blue")
 abline(v=Rpost$supp[loc], col="purple")

-legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"), col=c("red", "black", "blue", "purple"), lty=1)
+legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"),
+       col=c("red", "black", "blue", "purple"), lty=1)

 plot(Rpost$supp, Rpost$pmf, col="black", type="l", xlim=c(0.5, 1.5), xlab="", ylab="")
 abline(h=1/(20/0.01+1), col="red")
 abline(v=res1$Rhat, col="blue")
 abline(v=Rpost$supp[loc], col="purple")
 plot(Rpost$supp, Rpost$pmf, col="black", type="l", xlim=c(0.5, 1.5), xlab="", ylab="")
 abline(h=1/(20/0.01+1), col="red")
 abline(v=res1$Rhat, col="blue")
 abline(v=Rpost$supp[loc], col="purple")

-legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"), col=c("red", "black", "blue", "purple"), lty=1)
+legend("topright", legend=c("prior", "posterior", "posterior mean (Rhat)", "posterior mode"),
+       col=c("red", "black", "blue", "purple"), lty=1)

 
 ## ========================================================= ##
 ## Compute Rhat using only the first five weeks of data      ##
 
 ## ========================================================= ##
 ## Compute Rhat using only the first five weeks of data      ##