# NOT RUN {
#Example 1
data(petBrainGlioma)
y <- subset(petBrainGlioma, grade==1, select="FDG", drop=TRUE)
x <- subset(petBrainGlioma, grade==2, select="FDG", drop=TRUE)
auc.nonpara.kernel(x, y)
# }
# NOT RUN {
#Example 2
data(petBrainGlioma)
y <- subset(petBrainGlioma, grade==1, select="ACE", drop=TRUE)
x <- subset(petBrainGlioma, grade==2, select="ACE", drop=TRUE)
auc.nonpara.kernel(x, y, integration="TRUE",
bw="sj", method="bootstrapBCa", nboot=999)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab