Nothing
groupFrontComp <- function(matOfFronts, stringSize) {
allComp <- list()
b <- max(matOfFronts[, stringSize + 2])
for (i in 0:b) {
tempMatB <- matOfFronts[which(matOfFronts[, stringSize + 2] == i), 1:stringSize]
if (length(tempMatB) > 0) {
if(is.vector(tempMatB)) {
tempMatB <- matrix(tempMatB, 1, stringSize, byrow=TRUE)
}
allComp[[i+1]] <- tempMatB
} else {
allComp[[i+1]] <- matrix(0, 1, stringSize)
}
}
return(allComp)
}
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.