1 | exclude.extreme(score)
|
score |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (score)
{
itemset <- colnames(score)
itemstu <- rownames(score)
rM <- score[, apply(score, 2, var) > 0]
rM <- rM[apply(rM, 1, var) > 0, ]
cat("item(s) ", setdiff(itemset, colnames(rM)), " has been removed \n")
cat("student(s) ", setdiff(itemstu, rownames(rM)), " has been removed \n")
return(rM)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.