#begin=Sys.time()
# example from https://www.labkey.org/wiki/home/Documentation/page.view?name=luminexFileFormats
dat = read.luminex.xls(paste(system.file(package="nCal")[1],
'/misc/02-14A22-IgA-Biotin-tiny.xls', sep=""), verbose=TRUE)
out = ncal(log(fi)~expected_conc, dat, return.fits = TRUE, plot.se.profile=FALSE)
out
library(RUnit)
checkEqualsNumeric(unlist(out[1,c("est.log.conc","se")]), c(-7.3449112, 0.79966084), tolerance=1e-6)
checkEqualsNumeric(unlist(out[12,c("est.log.conc","se")]), c(3.6101613, 0.10138050), tolerance=1e-6)
#end=Sys.time();print(end-begin)Run the code above in your browser using DataLab