r - カーネル密度からランダム サンプルを生成したときの異なる結果

Question

library(ks)

x<-rnorm(1000)
hist(x, col="red")

y <- rkde(kde(x), n=1000)
hist(y, col="green")

y <- rkde(density(x), n=1000)
hist(y, col="blue")

最後のヒストグラムは間違っています。以前に使用densityしたことがありますが、はるかに複雑な分布に対して正確であることがわかりました。この場合、なぜパフォーマンスが悪いのでしょうか。ありがとう

Answer 1

関数の使い方が間違っているからです。 rkdeクラス kde のオブジェクトが必要です。 densitykde オブジェクトを返さず、構造が異なります。

それは、誰かにピストルを撃つように言ってショットガンの弾丸を手渡すようなものです。