# \donttest{
require(nlme)
data(Orange)
fit.gls <- gls(circumference ~ age, data = Orange,
weights = varPower())
## Visualize covariance matrix
fit.gls.vc <- var_cov(fit.gls)
image(log(fit.gls.vc[,ncol(fit.gls.vc):1]))
sim <- simulate_gls(fit.gls)
# }
Run the code above in your browser using DataLab