Set basic structure for all functions

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(augment,HLfit)
 S3method(augment,brmsfit)
 S3method(augment,gamm4)
 S3method(augment,glmmTMB)
@@ -9,6 +10,7 @@ S3method(augment,lme)
 S3method(augment,merMod)
 S3method(augment,ranef.mer)
 S3method(fixef,MCMCglmm)
+S3method(glance,HLfit)
 S3method(glance,brmsfit)
 S3method(glance,gamlss)
 S3method(glance,gamm4)
@@ -20,6 +22,7 @@ S3method(glance,merMod)
 S3method(glance,stanreg)
 S3method(ranef,MCMCglmm)
 S3method(sigma,brmsfit)
+S3method(tidy,HLfit)
 S3method(tidy,MCMCglmm)
 S3method(tidy,MixMod)
 S3method(tidy,TMB)

R/spaMM_tidiers.R

@@ -0,0 +1,42 @@
+#' Tidying methods for mixed effects models
+#'
+#' These methods tidy the coefficients of mixed effects models, particularly
+#' responses of the \code{HLfit} class
+#'
+#' @inheritParams glmmTMB_tidiers
+#' @param x An object of class \code{HLfit}, such as those from \code{fitme},
+#' \code{HLfit}, or \code{corrHLfit}
+#'
+#' @return All tidying methods return a \code{tibble}.
+#' The structure depends on the method chosen.
+#'
+#' @name spaMM_tidiers
+#' @aliases tidy.HLfit
+#'
+#' @examples
+#'
+#' if (require("spaMM") && require("lme4")) {
+#'   lmm1 <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
+#'   tidy(lmm1)
+#'   augment(lmm1)
+#'   glance(lmm1)
+#' }
+NULL
+
+#' @rdname spaMM_tidiers
+#' @export
+tidy.HLfit <- function(x, effects = c("ran_pars", "fixed"), ...) {
+  message("method not yet implemented")
+}
+
+#' @rdname spaMM_tidiers
+#' @export
+augment.HLfit <- function(x, ...) {
+  message("method not yet implemented")
+}
+
+#' @rdname spaMM_tidiers
+#' @export
+glance.HLfit <- function(x, ...) {
+  message("method not yet implemented")
+}