predict
.
pointwise(result.predict, coverage = 0.99)
predict
with
se.fit = TRUE
.
fit
of
result.predict
.
This function computes pointwise confidence limits for predictions computed
by the function
predict
. The limits
are computed at those points specified by the argument
newdata
of
predict
.
attach(gas) gas.m <- loess(NOx ~ E, data = gas, span = 2/3) gas.se <- predict(gas.m, newdata = seq(min(E), max(E),length = 7), se.fit = TRUE) pointwise(gas.se) # Gives the following result: $upper: [1] 1.985621 4.109807 5.480230 5.566510 3.527610 1.710617 [7] 1.472049 $fit: [1] 1.1964144 3.6794968 5.0557086 5.1352603 3.1436568 1.1969317 [7] 0.5236823 $lower: [1] 0.4072080 3.2491865 4.6311876 4.7040105 2.7597037 [6] 0.6832464 -0.4246841