data <- matrix(rlnorm(40,meanlog=0,sdlog=1),nrow=10)
data.rowsum <- apply(data,1,sum)
data.norm <- data/data.rowsum
testdata <- data.norm
dimnames(testdata) <- list(paste("Sample",seq(1,10)),paste("Feature",seq(1,4)))
nc.score.results <- nc.score( x=testdata )
nc.score.results.bins <- nc.score( x=testdata )
nc.score.results.bin.cutoffs <- nc.score( x=testdata )
nc.score.results
nc.score.results.bins
nc.score.results.bin.cutoffs
Run the code above in your browser using DataLab