Nothing
#[export]
check_data <- function (x, ina = NULL) {
if ( !is.matrix(x) )
x <- Rfast::data.frame.to_matrix(x)
if ( is.null(ina) ) {
a <- Rfast::colrange(x)
b <- which(a == 0)
} else {
ina <- as.numeric( as.factor(ina) )
k <- max(ina)
a <- matrix(nrow = k, ncol = dim(x)[2])
for (i in 1:k) a[i, ] <- Rfast::colrange(x[ina == i, ])
b <- which( Rfast::colsums(a == 0) > 0 )
}
b
}
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.