library(agricolae)
# Example 1
dates<-c(14,21,28)
evaluation<-data.frame(E1=40,E2=80,E3=90)
# Audpc relative
relative<-audpc.rel(evaluation,dates)
print(relative)
rm(relative, evaluation,dates)
# Example 2
data(disease)
attach(disease)
dates<-c(1,2,3)
evaluation<-disease[,c(4,5,6)]
# Audpc relative
audpc<-audpc.rel(evaluation,dates)
# data for analysis.
data2<-data.frame(disease,relative=audpc)
# correlation between the yield and the AUDPC
attach(data2)
cor.vector(yield, relative, method="kendall")
rm(audpc, dates, data2)
Run the code above in your browser using DataLab