# NOT RUN {
N0 <- NormLocationScaleFamily(mean=0, sd=1)
N0.Rob1 <- InfRobModel(center = N0,
neighbor = ContNeighborhood(radius = 0.5))
## Don't run to reduce check time on CRAN
# }
# NOT RUN {
IC1 <- optIC(model = N0, risk = asCov())
IC2 <- optIC(model = N0.Rob1, risk = asMSE())
comparePlot(IC1,IC2, withMBR=TRUE)
# }
Run the code above in your browser using DataLab