## some simple normal data
set.seed(101)
x <- matrix(rnorm(200), ncol=2)
w <- runif(100)
w <- w/sum(w)
out <- lcd.weights(x,w)
par(mfrow=c(2,2))
plot(out, itype="c", main="Density")
plot(out, itype="c", uselog=TRUE, main="LogDensity")
plot(out, itype="i", main="Density")
plot(out, itype="i", uselog=TRUE, main="LogDensity")Run the code above in your browser using DataLab