```
##create a vector of names to trace back models in set
Modnames <- c("global model", "interactive model",
"additive model", "invertpred model")
##WAIC values
waic <- c(105.74, 107.36, 108.24, 100.57)
##number of effective parameters
effK <- c(7.45, 5.61, 6.14, 6.05)
##generate WAIC table
ictab(ic = waic, K = effK, modnames = Modnames,
sort = TRUE, ic.name = "WAIC")
```

Run the code above in your browser using DataLab