powered by
deamer
mise(density, obj)
'deamer'
deamer-class
deamerKE
deamerSE
deamerRO
n=1000 x <- rchisq(n, df=3) e <- rnorm(n,0,0.1) y <- x + e estimate <- deamerKE(y, noise.type="gaussian", sigma=0.1) f_th <- function(x) dchisq(x, df=3) mise(f_th, estimate)
Run the code above in your browser using DataLab