inst/unitTests/test_generate_labels.R

In COSNet: Cost Sensitive Network for node label prediction on graphs with highly unbalanced labelings

library(COSNet)
test_generate_labels <- function() {
    nitems <- 1000       
    pos.rate <- 0.2;
    labels <- generate_labels(nitems, pos.rate);       
    checkEquals(length(labels), nitems)     
    checkTrue(min(labels) == -1 || min(labels) == 1);
    checkTrue(max(labels) == -1 || max(labels) == 1);
}