data(precip). • bw <- bw.SJ(precip) ## sensible automatic choice. • plot(density(precip, bw = bw, n = 2^13), main = "same sd.
確定! 回上一頁