Displaying 1 result from an estimated 1 matches for "iedudat".
2012 Sep 24
1
Adding textbox to multiple panels in lattice
...e
Erich
install.packages("Giza")
library(Giza)
panel.tpop <- function(x,y,...){
panel.grid(h=length(agegrs),v=5,col="lightgrey",lty=1)
ls1 <<- list(...)
y <<- y
iFrame <- iEduDat[ls1$subscripts,]
iSex <- with(iFrame,unique(sex))
if (iSex=="Female"){
panel.pyramid(x,y,...)
iCc <- with(iFrame,unique(cc))
iYr <- with(iFrame,uniq...