demo/model-based.R

# ---------------------------------------
# Author: Andreas Alfons
#         Vienna University of Technology
# ---------------------------------------

## initializations
library("simFrame")
library("robCompositions")
library("mvtnorm")
set.seed(12345)

## define function and control class for generating data
crnorm <- function(n, mean, sigma) isomLRinv(rmvnorm(n, mean, sigma))
sigma <- matrix(c(1, -0.5, 1.4, -0.5, 1, -0.6, 1.4, -0.6, 2), 3, 3)
dc <- DataControl(size = 150, distribution = crnorm, 
    dots = list(mean = c(0, 2, 3), sigma = sigma))

## define control class for the insertion of missing values 
nc <- NAControl(NArate = 0.05)

## define function for simulation runs
sim <- function(x, orig) {
    i <- apply(x, 1, function(x) any(is.na(x)))
    ni <- length(which(i))
    xKNNa <- impKNNa(x)$xImp
    xLS <- impCoda(x, method = "lm")$xImp
    c(knn = aDist(xKNNa, orig)/ni, LS = aDist(xLS, orig)/ni)
}

## run simulation
results <- runSimulation(dc, nrep = 100, NAControl = nc, fun = sim)

## inspect results
head(results)
aggregate(results)

## plot results
plot(results, xlab = "Relative Aitchison distance")
simDensityplot(results, alpha = 0.6, xlab = "Relative Aitchison distance")

Try the simFrame package in your browser

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

simFrame documentation built on May 30, 2017, 12:25 a.m.