Deepayan Sarkar wrote:
> On 9/26/06, Frank E Harrell Jr <[EMAIL PROTECTED]> wrote:
>> I think this is new since a previous version of R:
>>
>> > h <- function(x, trantab) trantab[x]
>> > w <- 6:4
>> > names(w) <- c('cat','dog','giraffe')
>> > w
>> cat dog giraffe
>> 6 5 4
>> >
>> > formals(h) <- list(x=numeric(0), trantab=w)
>> > h
>> function (x = numeric(0), trantab = c(6, 5, 4))
>> trantab[x]
>>
>> You can see that the names have been dropped from trantab's default
>> values.
>
> Are you sure? I get
>
>> formals(h)
> $x
> numeric(0)
>
> $trantab
> cat dog giraffe
> 6 5 4
>
>> h(1)
> cat
> 6
>
> R version 2.4.0 beta (2006-09-21 r39463)
> x86_64-unknown-linux-gnu
>
> -Deepayan
Deepayan -
You are correct. h('cat') is 6 as intended. I just looked at the
function definition - the names attribute doesn't show for some reason.
I was expecting function(..., trantab=c(cat=6, ..).
Thanks
Frank
>
>
>> Version 2.3.1 (2006-06-01)
>> i486-pc-linux-gnu
>>
>> attached base packages:
>> [1] "grid" "methods" "stats" "graphics" "grDevices" "utils"
>> [7] "datasets" "base"
>>
>> other attached packages:
>> lattice acepack Hmisc
>> "0.13-10" "1.3-2.2" "3.0-12"
>>
>
______________________________________________
R-help@stat.math.ethz.ch 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.
