Nothing
#[export]
wild.boot <- function(y, x, cluster, ind = NULL, R = 999, parallel=FALSE) {
nam <- colnames(x)
z <- cbind(cluster, y, 1, x)
z <- z[order(z[, 1]), ]
cluster <- as.integer( as.factor( z[, 1] ) )
y <- z[, 2]
X <- z[, -c(1:2)]
d <- dim(X)[2]
tab <- Rfast::Table( cluster )
if ( is.null(ind) ) {
ind <- 2:d
} else ind <- ind + 1
res = .Call(Rfast2_wild_boot, X, y, cluster, ind, R, tab, parallel)
mat = cbind(res$Estimate,res$`Rob se`,res$Stat, res$`p-value`, res$`Boot p-value`)
colnames(mat) <- c("Estimate", "Rob se", "Stat", "p-value", "Boot p-value")
if ( is.null(nam) ) {
rownames(mat) <- c("Intercept", paste( "X", 1:(d-1), sep = "") )
} else rownames(mat) <- c("Intercept", nam)
mat
}
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.