R-alpha: A few bugs in R-0.50-a3.
Patrick Lindsey
plindsey@luc.ac.be
Tue, 19 Aug 1997 10:53:48 +0200 (MET DST)
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