# NOT RUN {
kangdata<-read.csv(file=system.file("extdata","kangdata.csv",package="NMADiagT"),
header=TRUE, sep=",")
set.seed(9)
kang.out.hsroc <- nmadt.hsroc(nstu=12, K=2, data=kangdata, testname=c("D-dimer","Ultrasonography"))
hsroc.plot(nstu=12, K=2, data=kangdata, directory = tempdir(),
testname=c("D-dimer","Ultrasonography"),output=kang.out.hsroc)
# }
Run the code above in your browser using DataLab