# NOT RUN {
data(Pb)
il.pb<-construct.ilab(org=Pb$lab, x=Pb$value, measurand="Pb", item="none",
u=Pb$u, k=Pb$k, U=Pb$U, title=c("CCQM K30", "Lead in wine"), method=Pb$method)
subset(il.pb, u < 0.03)
il.pb[1:6,]
# }
Run the code above in your browser using DataLab