我估计使用旧信徒的密度：
library(np)
library(datasets)
data(faithful)
f <- npudens(~eruptions+waiting,data=faithful)
如何找到不忠实的点的密度？谢谢！
答案 0 :(得分：4)
?npudens说npdensity个对象有predict方法：
predict(f,newdata=data.frame(eruptions=3.5,waiting=70))
## [1] 0.004473444