Displaying 1 result from an estimated 1 matches for "tpgsl".
Did you mean:
tpgs
2008 Apr 14
2
Bug in ci.plot(HH Package) (PR#11163)
...ew.p$fit[,c("lwr","upr"), drop=FALSE]
dimnames(tmp$pi.fit)[[2]] <- c("lower","upper")
attr(tmp$pi.fit,"conf.level") <- conf.level
tmp$fit <- tmp$fit[,"fit", drop=FALSE]
tmp
})
tpgsl <- trellis.par.get("superpose.line")
tpgsl <- Rows(tpgsl, 1:4)
tpgsl$col[1] <- 0
xyplot(formula.lm, data=data, newdata=newdata, newfit=newfit,
newdata.x=newdata.x,
xlim=xlim, ylim=ylim, pch=pch,
panel=function(..., newdata.x) {
panel.ci...