panel failure in xyplot

David.
> 
> Please kindly advise how to modify the code.
> thank you.
> 
> (It works with panel.bwplot.intermediate.hh)
> 
> Elaine
> 
> 
> code
> 
> library(HH)
> 
> # data input
>    dataN <-read.csv("H:/R_data/Mig_bird_586.csv",header=T, row.names=1)
>    dim(dataN)
>    dataN[1,]
>    str(dataN)
> 
>    diet.code <- c("Herbivore", "Omnivore", "Carnivore")
>    Diet.colors <- c("forestgreen", "darkblue","red2")
>    levels(dataN$Diet) <- diet.code
> 
>  # graph
>    par(mai=c(1.03,1.03,0.4,0.4))
>    par(new=T)
> 
>    xyplot(GE_distance~Diet, data=dataN,
>    xlab=list("Diet  of  Breeding  Ground", cex = 1.4),
>    ylab=list("Migration  Distance",cex = 1.4),
>    xaxt="n",
>    yaxt="n",type="p",
>    lwd=1.5,
>    cex.lab=1.4, cex.axis=1.2,
>    font.axis=2,
>    cex=1.5,
>    las=1,
>    bty="l",
>    panel=panel.xyplot.intermediate.hh,
>    col=Diet.colors,
>    pch=rep("|",3),
>    scales=list(x=list(rot=0)),
>    par.settings=list(box.umbrella=list(lty=1)))
> 
> 	[[alternative HTML version deleted]]
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

David Winsemius
Alameda, CA, USA