Rename ID and IDEA

[Rnaught] / R / seqB.R

diff --git a/R/seqB.R b/R/seqB.R
index e51117f852f976216241c368112f04d2dac4ed5d..1dcf927d4071b5d4505cff56b1aa1931cf3029ef 100644 (file)
--- a/R/seqB.R
+++ b/R/seqB.R
@@ -11,7 +11,7 @@
 #' posterior distribution. The prior distribution is the initial belief of the
 #' distribution of R0, which is the uninformative uniform distribution with
 #' values between zero and \code{kappa}. Users can change the value of
 #' posterior distribution. The prior distribution is the initial belief of the
 #' distribution of R0, which is the uninformative uniform distribution with
 #' values between zero and \code{kappa}. Users can change the value of

-#' /code{kappa} only (i.e., the prior distribution cannot be changed from the
+#' \code{kappa} only (i.e., the prior distribution cannot be changed from the

 #' uniform). As more case counts are observed, the influence of the prior
 #' distribution should lessen on the final estimate \code{Rhat}.
 #'
 #' uniform). As more case counts are observed, the influence of the prior
 #' distribution should lessen on the final estimate \code{Rhat}.
 #'


@@ -41,7 +41,7 @@
 #'         \code{Rhat} is the estimate of R0 (the posterior mean),
 #'         \code{posterior} is the posterior distribution of R0 from which
 #'         alternate estimates can be obtained (see examples), and \code{group}
 #'         \code{Rhat} is the estimate of R0 (the posterior mean),
 #'         \code{posterior} is the posterior distribution of R0 from which
 #'         alternate estimates can be obtained (see examples), and \code{group}

-#'         is an indicator variable (if \code{group=TRUE}, zero values of NT
+#'         is an indicator variable (if \code{group == TRUE}, zero values of NT

 #'         were input and grouping was done to obtain \code{Rhat}). The variable
 #'         \code{posterior} is returned as a list made up of \code{supp} (the
 #'         support of the distribution) and \code{pmf} (the probability mass
 #'         were input and grouping was done to obtain \code{Rhat}). The variable
 #'         \code{posterior} is returned as a list made up of \code{supp} (the
 #'         support of the distribution) and \code{pmf} (the probability mass


@@ -78,9 +78,9 @@
 #'
 #' @export
 seqB <- function(NT, mu, kappa = 20) {
 #'
 #' @export
 seqB <- function(NT, mu, kappa = 20) {

-  if (length(NT) < 2) {
+  if (length(NT) < 2)

     print("Warning: length of NT should be at least two.")
     print("Warning: length of NT should be at least two.")

-  } else {
+  else {

     if (min(NT) > 0) {
       times <- 1:length(NT)
       tau <- diff(times)
     if (min(NT) > 0) {
       times <- 1:length(NT)
       tau <- diff(times)