diff --git a/NAMESPACE b/NAMESPACE index 6a6582c..964ff09 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -24,8 +24,6 @@ S3method(print,time) S3method(sigma,ipriorMod) S3method(summary,ipriorMod) S3method(update,ipriorMod) -export(.kernel_summary_translator) -export(.kernels_for_summary) export(as.time) export(check_theta) export(dec_plac) diff --git a/R/ipriorMod_methods.R b/R/ipriorMod_methods.R index 1bbc14d..782e72a 100644 --- a/R/ipriorMod_methods.R +++ b/R/ipriorMod_methods.R @@ -98,9 +98,6 @@ kernels_for_summary <- function(object, theta) { x.kern } -#' @export -.kernels_for_summary <- kernels_for_summary - kernel_summary_translator <- function(x) { # Helper function to translate information from ipriorKernel to a string of # kernels used for summary print. Not vectorised. @@ -130,10 +127,6 @@ kernel_summary_translator <- function(x) { res } -#' @export -.kernel_summary_translator <- kernel_summary_translator - - #' @export print.ipriorMod_summary <- function(x, wrap = FALSE, ...) { cat("Call:\n")