# NOT RUN {
dataFile <- system.file("extdata", "rawDataPreProcessed.csv", package="COMBIA")
dataSample <- read.csv(dataFile, header=FALSE )
xConc <- c(0.00, 0.20, 0.39, 0.78, 1.56,3.12, 6.25, 12.50, 25.00, 50)
yConc <- c(128, 64, 32, 16, 8, 4, 2, 0)
noOFBoot <- 500 # a large number is recomended
rslt <- applyLoewe(as.matrix(dataSample), xConc, yConc, noOFBoot)
# }
Run the code above in your browser using DataLab