# \donttest{
quadrartic.data <- simulateData(utility="quadratic")
quad_anom <- anominate(quadrartic.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)
Run the code above in your browser using DataLab