This might be easier for your purpose:
> lapply(list(bravo=bravo, charly=charly), table)
$bravo
1 2 3 5
2 1 1 3
$charly
1 2 4 7
1 1 2 2
Andy
> From: Heinz Tuechler
>
> Hello,
>
> applying a function to a list of variables I face the
> following problem:
> Let's say I want to compute tables for several variables. I
> could write a
> command for every single table, like
> bravo<-c(1,1,2,3,5,5,5,);charly<-c(7,7,4,4,2,1)
> table(bravo); table(charly)
> > table(bravo); table(charly)
> bravo
> 1 2 3 5
> 2 1 1 3
> charly
> 1 2 4 7
> 1 1 2 2
> The results are two tables with the names of the variables above each.
> If I want to do the same thing by a function I find no way to get the
> variable names above the tables.
> demofn<-function(varlist)
> {for (i in seq(along=varlist))
> {cat(deparse(varlist[i])) # < - - - - how to change this?
> print(table(varlist[i]))}}
> > demofn(list(bravo, charly))
> list(c(1, 1, 2, 3, 5, 5, 5))
> 1 2 3 5
> 2 1 1 3
> list(c(7, 7, 4, 4, 2, 1))
> 1 2 4 7
> 1 1 2 2
> >
>
> Thanks,
> Heinz T�chler
>
> ______________________________________________
> [email protected] mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide!
> http://www.R-project.org/posting-guide.html
>
>
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
