“…N <-100 K <-16 SD <-c (5,10,15,20) sd_label <-c("SD = 5", "SD = 10", "SD = 15", "SD = 20") mk<-matrix (NA, ncol = k, nrow = N) sbp <-list(mk, mk, mk, mk) dbp <-list(mk, mk, mk, mk) names(sbp)<-sd_label; names(dbp)<-sd_label dimnames <-list(paste0("Pt", 1:N), sd_label) msd <-matrix(NA, ncol = NROW(SD), nrow = N, dimnames = dimnames) meansbp <-msd; meandbp <-msd shtn <-msd; dhtn <-msd nsbp135 <-msd; ndbp85 <-msd for (j in 1:NROW(SD)){ 5) Assessments and comparisons of the diagnostic performances for uncontrolled BPs Sensitivity, speci city, PPV, NPV, CCR and C-statistic were assessed as diagnostic performance indexes of the high BP counts. Although Delong's method can be employed to generate CIs for C-statistics and to compare 2 C-statistics, there have been no stable methods to compare the other diagnostic performance indexes among 3 or more groups.…”