Nothing
#' @keywords internal
`.someattributes<-` <- function(x, value) {
for (a in names(value)) {
attr(x, a) <- value[[a]]
}
x
}
#' @keywords internal
.nlist <- function(...) {
m <- match.call()
dots <- list(...)
no_names <- is.null(names(dots))
has_name <- if (no_names) FALSE else nzchar(names(dots))
if (all(has_name)) {
return(dots)
}
nms <- as.character(m)[-1]
if (no_names) {
names(dots) <- nms
} else {
names(dots)[!has_name] <- nms[!has_name]
}
dots
}
#' @keywords internal
.get_model_info <- function(model, model_info = NULL, ...) {
if (is.null(model_info)) model_info <- insight::model_info(model)
model_info
}
#' @keywords internal
.safe_ranktransform <- function(x, verbose = TRUE, ...) {
if (insight::n_unique(x) == 1) {
return(rep(mean(seq_along(x)), length(x)))
}
datawizard::ranktransform(x, method = "average", ..., verbose = FALSE)
}
#' @keywords internal
.is_BF_of_type <- function(x, type, msg = type) {
if (inherits(x, "BFBayesFactor")) {
if (!inherits(x@numerator[[1]], type)) {
insight::format_error(sprintf("'x' is not a %s!", msg))
}
return(TRUE)
} else {
return(FALSE)
}
}
#' @keywords internal
.is_htest_of_type <- function(x, pattern, msg) {
if (inherits(x, "htest")) {
if (!grepl(pattern, x$method)) {
insight::format_error(sprintf("'x' is not a %s!", msg))
}
return(TRUE)
} else {
return(FALSE)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.