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

[Joris Meys]

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