#' @export folderCC
folderCC <- function(folder, calculateCC = 50, modelUmbral= 0.85){
files <- list.files(folder,full.names = TRUE)
CC <- lapply(files, function(file){
fileCC(file = file, calculateCC = calculateCC, modelUmbral = modelUmbral)
})
CC <- as.data.frame.array(t(rbind.data.frame(CC)))
rownames(CC) <- sub(pattern = "(.*)\\..*$", replacement = "\\1", basename(files))
colnames(CC) <- c("CC","SD","SE","mADJ")
return(CC)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.