# Lattice prepanel function for confidence intervals

### Description

This prepanel function is defined so as to allow room for all confidence intervals plotted in a lattice display. Note, both lower and upper must be passed directly to `xyplot`

as they will be passed down to the prepanel function.

### Usage

1 | ```
prepanel.ci(x,y,subscripts, lower,upper)
``` |

### Arguments

`x,y` |
Data from the call to |

`subscripts` |
Variable used to created the juxtaposed panels. |

`lower, upper` |
95% lower and upper bounds of |

### Value

A list giving the ranges and differences in ranges of x and the lower and upper bounds of y.

### Author(s)

Dave Armstrong (UW-Milwaukee, Department of Political Science)

### Examples

1 2 3 4 5 6 7 8 9 10 | ```
library(car)
library(lattice)
data(Ornstein)
mod <- lm(interlocks ~ log(assets)*nation, data=Ornstein)
mod.out <- intQualQuant(mod, c("log(assets)", "nation"),
n=25, plot=FALSE, type="facs")
xyplot(fit ~ x | contrast, data=mod.out,
xlab = "Assets", ylab = "Difference In Fitted Values",
lower=mod.out$lower, upper=mod.out$upper, zl=TRUE,
prepanel=prepanel.ci, panel=panel.ci)
``` |