From ripley at stats.ox.ac.uk  Fri Apr 11 19:23:28 2003
From: ripley at stats.ox.ac.uk (Prof Brian Ripley)
Date: Fri Apr 11 19:23:40 2003
Subject: [Rd] lattice bug? (PR#2765)
In-Reply-To: <200304111711.h3BHBbpD013024@pubhealth.ku.dk>
Message-ID: <Pine.LNX.4.44.0304111821430.25359-100000@gannet.stats>

Works perfectly with the current lattice -- 0.7-4.  It's already been 
reported and fixed.

On Fri, 11 Apr 2003 david.barron@said-business-school.oxford.ac.uk wrote:

> I've been experimenting with the lattice graphics in chapter 3 of MASS.  The
> code to produce figure 3.14 is:
> 
> data(crabs)
> library(mva)
> lcrabs.pc <- predict(princomp(log(crabs[,4:8])))
> crabs.grp <- c("B", "b", "O", "o")[rep(1:4, rep(50,4))]
> splom( ~lcrabs.pc[, 1:3], groups = crabs.grp,
>    panel = panel.superpose,
>    key = list(text = list(c("Blue male", "Blue female",
>                            "Orange Male", "Orange female")),
>        points = Rows(trellis.par.get("superpose.symbol"), 1:4),
>        columns = 4)
>   )
> 
> This fails with the error: Error in 1:ncol(x) : NA/NaN argument
> 
> I traced this to the line in the splom function:
> 
>    for (j in 1:ncol(x)) id.na <- id.na | is.na(x[, j])
> 
> but the root of the problem actually seems to be earlier, when
> latticParseFormula is called.
> 
>  form <- if (inherits(formula, "formula"))
>         latticeParseFormula(formula, data)
>     x <- as.data.frame(form$right)
> 
> This seems not to work properly if data=parent.frame().  Should it?
> Apologies if this is something known, or if I'm doing something wrong!
> 
> I'm using R 1.6.2 under Windows 2000 Pro and lattice Version: 0.7-1 Date:
> 2003/03/15.
> 
> Thanks,
> David
> 
> ===================================================
> David Barron
> Jesus College
> Oxford OX1 3DW
> 01865 279684
> 
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
> 

-- 
Brian D. Ripley,                  ripley@stats.ox.ac.uk
Professor of Applied Statistics,  http://www.stats.ox.ac.uk/~ripley/
University of Oxford,             Tel:  +44 1865 272861 (self)
1 South Parks Road,                     +44 1865 272866 (PA)
Oxford OX1 3TG, UK                Fax:  +44 1865 272595


[Rd] lattice bug? (PR#2765)
Prof Brian Ripley