Create shiny UI

[Rnaught] / R / seqB.R

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")
-#' 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")
-#' 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      ##