From plindsey@luc.ac.be  Tue Aug 19 09:53:48 1997
From: plindsey@luc.ac.be (Patrick Lindsey)
Date: Tue, 19 Aug 1997 10:53:48 +0200 (MET DST)
Subject: R-alpha: A few bugs in R-0.50-a3.
Message-ID: <9708190853.AA10759@alpha.luc.ac.be>

A few problems in R-0.50-a3 (which were also in R-0.49):

1)
y <- c(10,11,12,13,14,NA,NA)
n <- length(y)
missed <- (1:n)[is.na(y)]
notmissed <- (1:n)[!is.na(y)]
blocks <- cut(missed,breaks=c(0,notmissed,n+1))
a <- function(v) {
	q <- range(v)
	c(q[1]-1,q[2]+1)
}
brackets <- tapply(missed,blocks,a)

This codes gives the following in S:
> brackets
$"0+ thru 1":
NULL

$"1+ thru 2":
NULL

$"2+ thru 3":
NULL

$"3+ thru 4":
NULL

$"4+ thru 5":
NULL

$"5+ thru 8":
[1] 5 8

>

And the following in R:

> brackets <- tapply(missed,blocks,a)
Error: names attribute must be same length as the vector

I also had similar problems when using "lm" with data containing NA's
but could not find back a precise example...

2)
b <- list(2)
names(b) <- "lty"
a <- function(...) {
	par(c(...,b))
	par()
}
a()


The following is obtained in S:
> win.graph()
> a()
$"1em":
[1] 0.03150623 0.05075211

$adj:
[1] 0.5

$ask:
[1] F

$bty:
[1] "o"

$cex:
[1] 1


R-alpha: A few bugs in R-0.50-a3.
Patrick Lindsey