#simulate 4 AICc values for 4 models.
AICc_Array<-rnorm(4, mean=10,sd=1)
#calculate the delta AICc
Delta.AICc.Array<-AICc_Array-min(AICc_Array)
#calculate the Akaike weight
AkaikeWeight(Delta.AICc.Array)
Run the code above in your browser using DataLab