diff --git a/NAMESPACE b/NAMESPACE index f8a9ee2..bf71c64 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -32,8 +32,4 @@ importFrom(ggplot2,guides) importFrom(ggplot2,scale_y_continuous) importFrom(ggplot2,theme) importFrom(ggplot2,unit) -importFrom(shiny,column) -importFrom(shiny,div) -importFrom(shiny,fluidRow) -importFrom(shiny,numericInput) useDynLib(epikinetics, .registration = TRUE) diff --git a/R/epikinetics-package.R b/R/epikinetics-package.R index 61f943a..ee9f4ae 100644 --- a/R/epikinetics-package.R +++ b/R/epikinetics-package.R @@ -12,7 +12,6 @@ #' @importFrom data.table .SD #' @importFrom data.table data.table #' @importFrom ggplot2 aes annotate facet_wrap geom_hline geom_point geom_ribbon geom_line geom_smooth ggplot guides guide_legend scale_y_continuous theme unit -#' @importFrom shiny column fluidRow div numericInput #' @useDynLib epikinetics, .registration = TRUE ## usethis namespace: end diff --git a/src/stan/antibody_kinetics_main.stan b/src/stan/antibody_kinetics_main.stan index 48b1e4e..0af7c80 100644 --- a/src/stan/antibody_kinetics_main.stan +++ b/src/stan/antibody_kinetics_main.stan @@ -144,7 +144,7 @@ model { mu = boost_wane_ind( t, t0_ind, tp_ind, ts_ind, m1_ind, m2_ind, m3_ind, titre_type, id); - // Likelihood for uncensored observations + // Likelihood for uncensored observations (lower < value < upper) value[uncens_idx] ~ normal(mu[uncens_idx], sigma); // Likelihood for observations at lower limit