## some simple normal data
set.seed(101)
x <- matrix(rnorm(200), ncol=2)
out <- lcd.mle(x)
g <- lcd.interp(out)
par(mfrow=c(2,2))
plot(out, g=g, itype="c")
plot(out, g=g, itype="c", uselog=TRUE)
plot(out, g=g, itype="i")
plot(out, g=g, itype="i", uselog=TRUE)Run the code above in your browser using DataLab