`sumFunc` <-
function(x, cutoff) {
tmp <- x/sum(x)
final <- rep(0, length(x))
for(i in 1:length(x)) {
final[i] <- sum(tmp[1:i])
}
dim <- min(which(final > cutoff))
return(dim)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.