data(hba1c)
str(hba1c)
hb1 <- with( hba1c,
Meth( meth = interaction(dev,type),
item = item,
repl = d.ana-d.samp,
y = y, print=TRUE ) )
Run the code above in your browser using DataLab