R/makeWeightsAIC.R

makeWeightsAIC <-
function(aics){
  min.i<-which(aics==min(aics))
  deltas<-aics-aics[min.i][1]
  w<-exp(-deltas/2)/sum(exp(-deltas/2))
  return(w)
}

Try the binequality package in your browser

Any scripts or data that you put into this service are public.

binequality documentation built on May 2, 2019, 9:58 a.m.