# NOT RUN {
dataFile <- system.file( "extdata", "rawDataPreProcessed.csv", package="COMBIA" )
dataSample <- read.csv(dataFile, header=FALSE )
nR <- 8
nC <- 10
rslt <- applyBliss(nR, nC, as.matrix(dataSample ), 500)
# }
Run the code above in your browser using DataLab