#No Longitudinal dataset
data(bpres)
bp1<-bpres[bpres$NM==1,]
result<-cccUst(bp1,"DIA","METODE")
result
summary(result)
#Longitudinal dataset
data(bdaw)
result2<-cccUst(bdaw,"cort_auc","met","VNUM")
result2
summary(result2)
#Weigthed lognitudinal dataset
data(bfat)
result3<-cccUst(bfat,"bf","met","VISITNO",Dmat=diag(c(2,1,1)))
result3
summary(result3)
Run the code above in your browser using DataLab