#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:3,c("fi")]), c(15,45,19.33908), tolerance=1e-3)
checkEqualsNumeric(unlist(out[12,c("fi")]), c(183.73622), tolerance=1e-3)
#end=Sys.time();print(end-begin)Run the code above in your browser using DataLab