library(agricolae)
dates<-c(14,21,28)
evaluation<-data.frame(E1=40,E2=80,E3=90)
# It calculates audpc absolute
audpc<-audpc.abs(evaluation,dates)
print(audpc)
rm(evaluation, dates, audpc)
# Another case
data(disease)
attach(disease)
dates<-c(1,2,3)
evaluation<-disease[,c(4,5,6)]
# It calculates audpc absolute
audpc<-audpc.abs(evaluation, dates)
# datos para analisis
data2<-data.frame(disease, audpc=audpc)
# Correlation between the yield and audpc
attach(data2)
cor.vector(yield, audpc, method="kendall")
Run the code above in your browser using DataLab