# \donttest{
################# Table 1 from Doring and Reckling (2018) ###########
# Mean values
u <- c(0.5891, 0.6169, 0.7944, 1.0310, 1.5032, 3.8610, 4.6969, 6.1148,
7.1526, 7.5348, 1.2229, 1.6321, 2.4293, 2.5011, 3.0161)
# Variances
v <- c(0.0064, 0.0141, 0.0218, 0.0318, 0.0314, 0.0766, 0.0620, 0.0822,
0.1605, 0.1986, 0.0157, 0.0593, 0.0565, 0.1997, 0.2715)
library(metan)
acv(u, v)
# }
Run the code above in your browser using DataLab