exclude.extreme: Exclude Extreme

Usage Arguments Examples

Usage

1

Arguments

score

Examples

 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)
  }

gvdovandzung/thongke documentation built on May 23, 2020, 12:35 a.m.