x <- rnorm.mixt(n=10000, mus=0, sigmas=1, props=1)
fhat <- kde(x=x, h=hpi(x))
p1 <- pkde(fhat=fhat, q=c(-1, 0, 0.5))
qkde(fhat=fhat, p=p1)
y <- rkde(fhat=fhat, n=100)
## positive data example
z <- 2^x
fhatz <- kde(x=z, h=hpi(log(z)), positive=TRUE)
z2 <- rkde(fhat=fhatz, n=10000, positive=TRUE)
fhatz2 <- kde(x=z2, h=hpi(log(z2)), positive=TRUE)
plot(fhatz, xlim=c(0,10))
plot(fhatz2, add=TRUE, col=2)
Run the code above in your browser using DataLab