N <- NormLocationScaleFamily(mean=0, sd=1)
IC <- optIC(model = N, risk = asCov())
## Don't run to reduce check time on CRAN
## Not run:
# plot(IC, main = TRUE, panel.first= grid(),
# col = "blue", cex.main = 2, cex.inner = 0.6,
# withMBR=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab