##---- 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 (data, nonzeroRatio = NULL, cvNorm = TRUE, cvResolution = 0.005)
{
nozeroIndex <- filteredZero(data, nonzeroRatio = nonzeroRatio)
dataUse2CV <- data[nozeroIndex, ]
cv.result <- getCV(dataUse2CV, cvNorm = cvNorm)
CV2AUCVC(cv.result, cvResolution = cvResolution)
}
Run the code above in your browser using DataLab