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
if (FALSE) {
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 DataCamp Workspace