R/AIC_MCDS.R

Defines functions AIC_MCDS

AIC_MCDS <- function(x){
  w1 <- grep("LnL",x)
  w2 <- grep("BIC",x)
  
  ans <- dtable(x,char=c(w1,w2), nbcol=2)
  res <- as.numeric(ans[,2])
  names(res) <- ans[,1]
  return(res)
}
RoyChristian/R2MCDS documentation built on Jan. 13, 2020, 8:17 p.m.