From 57f511c6c13f8563e6b3b74444538f477c58e4a5 Mon Sep 17 00:00:00 2001
From: Haziq Jamil <haziq.jamil@ubd.edu.bn>
Date: Tue, 2 Apr 2024 03:47:22 +0800
Subject: [PATCH] Forgot to remove these from NAMESPACE

---
 NAMESPACE             | 2 --
 R/ipriorMod_methods.R | 7 -------
 2 files changed, 9 deletions(-)

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