# Load data
data(ecdata)
data(mfidata)
# Select analyte FGF for plate 1
dat <- mfidata[mfidata$plate=="plate_1" & mfidata$analyte=="FGF",]
sdf <- data_selection(dat, ecdata)[[1]]
# SSl5
ig <- scluminex("plate_1",sdf$standard, sdf$background,
            lfct="SSl5",
            bkg="ignore",
            fmfi="mfi",
            verbose=FALSE)
summary(ig)Run the code above in your browser using DataLab