mumat13 <- cbind(G1=c(30,35), G0=c(20,28))
varmat13 <- cbind(G1=c(100,100),G0=c(100,100))
dtr13 <- smartDTR(mu_Barm=mumat13, sigsq_Barm=varmat13,
Barm=c(1,3), nsubject=252, pG_A1=0.8)
print(dtr13)
Run the code above in your browser using DataLab