or ...
sapply(m,function(x) table(factor(x, levels=c(NA, 1:4), exclude=NULL)))


On Fri, Sep 19, 2008 at 12:59 PM, Ralikwen <Balazs.Klein@gmail.com> wrote:

>
> Hi,
> I went for a slight alteration of your solution
>
> x1<-c(1,2,3,4,NA ,NA ,NA, 3, 1, 1, 1, 1, 2, 2, 3, 4, 4)
> x2<-c(2,3,4,3,4,3,4,2,2,3,4,NA,NA,NA,NA,4,3)
> x3<-c(1,1,1,1,"aaa",2,2,2,3,3,3,3,4,4,4,1,2)
> m<-data.frame(x1,x2,x3)
> m<-replace(m,is.na(m),"NA")
> levels=unique(as.vector(as.matrix(m)))
> mapply(function(x) table(factor(levels)), m)
>
> Many thanks for the help of both of you.
> Balázs
>
>
>
>
> Ivar Herfindal wrote:
> >
> >
> >  > mapply(function(x) table(factor(ifelse(is.na(x), "NA", x),
> > levels=c("NA",1,2,3,4))), m)
> >
> >
>
> --
> View this message in context:
> http://www.nabble.com/frequency-table-across-multiple-variables-tp19567838p19569510.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org 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.
>

	[[alternative HTML version deleted]]

