data(DCLHb);
TI <- TIR_IIR(dataset=DCLHb, var=c("HEMOCUE1","HEMOCUE2","SIGMA1","SIGMA2"), k=2, m=2, TIR_test="1,2", TIR_ref="All", IIR_test="1", IIR_ref="2", error="const", alpha=0.05, TIR_a=2.25);
summary(TI);
Run the code above in your browser using DataLab