Nothing
#' @rdname p_value_betwithin
#' @export
ci_betwithin <- function(model, ci = 0.95, ...) {
df_bet <- dof_ml1(model)
out <- lapply(ci, function(i) {
.ci_dof(
model = model,
ci = i,
effects = "fixed",
component = "all",
dof = df_bet,
method = "betwithin",
...
)
})
out <- do.call(rbind, out)
row.names(out) <- NULL
out
}
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.