Re: [R] constructing a contingency table (ftable, table)

From: Joris Meys <jorismeys_at_gmail.com>
Date: Tue, 08 Jun 2010 17:46:42 +0200

I could get something close to what you asked using a little hack, emulating a table using an array based on your two matrices :

test <- matrix(rpois(18,10),ncol=9,nrow=2) colnames(test) <- paste("Dis",1:9,sep="") rownames(test) <- c("2010","2020")

test2 <- matrix(rpois(18,10),ncol=9,nrow=2) colnames(test2) <- paste("Dis",1:9,sep="") rownames(test2) <- c("2010","2020")

tmp <- array(cbind(test,test2),

        dim=c(2,9,2),
        dimnames=list(rownames(test),colnames(test),c("Test","Test2")))

ftable(as.table(tmp))

Cheers
Joris

On Tue, Jun 8, 2010 at 3:42 PM, stefan.duke_at_gmail.com <stefan.duke_at_gmail.com> wrote:
> Dear all,
> an hopefully quick table question.
>
> I have the following data:
> Two objects that are 2*9 matrix with nine column names (Dis1, ...,
> Dis9) and the row names (2010,2020). The content are frequencies
> (numeric).
>
> In want to create a table that is along the lines of
> ftable(UCBAdmissions) and should looks like this:
> Dis1 | ...| Dis9
> 2010|2020|....|2010|2020
> (first row,first column is the value of Dis1 in 2010 from first
> object)| (first row,second column is the value of Dis1 in 2020 from
> first object)| ....
> (second row,first column is the value of Dis1 in 2010 from second
> object)| (first row,second column is the value of Dis1 in 2020 from
> second object)| ....
> and so on
>
> So basically what ftable does. But I do not understand how I can turn
> my two matrices (which already contain the frequencies) into the
> appropriate table object (if thats the way to go).
>
> Thanks and best,
> Stefan
>
> ______________________________________________
> R-help_at_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.
>

-- 
Joris Meys
Statistical consultant

Ghent University
Faculty of Bioscience Engineering
Department of Applied mathematics, biometrics and process control

tel : +32 9 264 59 87
Joris.Meys_at_Ugent.be
-------------------------------
Disclaimer : http://helpdesk.ugent.be/e-maildisclaimer.php

______________________________________________
R-help_at_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.
Received on Tue 08 Jun 2010 - 15:58:34 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Tue 08 Jun 2010 - 19:10:29 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive