Update DESCRIPTION

[Rnaught] / man / seqB.Rd

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      ##