# \donttest{
quadratic.data <- simulateData(utility="quadratic")
quad_anom <- anominate(quadratic.data, dims=1, polarity=1,
nsamp=200, thin=1, burnin=100, random.starts=FALSE,
verbose=FALSE, constrain=FALSE)
# }
# 'quad_anom' can be retrieved quickly with:
data(quad_anom)
summary(quad_anom)
plot(quad_anom)
# \donttest{
normal.data <- simulateData(utility="normal")
norm_anom <- anominate(normal.data, dims=1, polarity=1,
nsamp=200, thin=1, burnin=100, random.starts=FALSE,
verbose=FALSE, constrain=FALSE)
# }
# 'norm_anom' can be retrieved quickly with:
data(norm_anom)
summary(norm_anom)
plot(norm_anom)
Run the code above in your browser using DataLab