# \donttest{
data(dat.kang)
set.seed(9)
kang.out <- nmadt.hierarchical(nstu=12, K=2, data=dat.kang,
testname=c("D-dimer","Ultrasonography"))
plot(kang.out, type = "sroc")
plot(kang.out, type = "forest")
plot(kang.out, type = "contour")
plot(kang.out, type = "density")
# }
Run the code above in your browser using DataLab