Sorry, I've just reversed the names of dimensions :)
addmargins(table(fS,fF),c(1,2),FUN=list(total.col=sum,total.row=sum))
Andrija
On Fri, Apr 15, 2011 at 3:50 PM, andrija djurovic <djandr...@gmail.com>wrote:
> Hi.
>
> Have a look also at ?addmargins.
>
> addmargins(table(fS,fF),c(1,2),FUN=list(total.row=sum,total.col=sum))
>
> Andrija
> On Fri, Apr 15, 2011 at 3:29 PM, Dmitry Berman <ravenb...@gmail.com>wrote:
>
>> Listers,
>>
>> I have created a cross-tab matrix using the following code:
>>
>> S <-
>>
>> c(1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,2,3,1,1,2,3,1,1,2,3,1,2,2)
>> F <-
>>
>> c(1,2,3,1,2,3,1,1,1,1,2,3,1,1,3,2,2,2,1,2,3,1,1,1,1,2,3,3,1,3,1,3,1,1,2,3,1,1,3,2,3,2,1,1,1,2,3,1,1,2)
>> table(S,F)
>> fF <-factor(F, labels = c("Dem","Ind","Rep"))
>> fS <-factor(S, labels = c("Dem","Ind","Rep"))
>> PiD <- table(fS,fF)
>> PiD <- cbind(PiD, margin.table(PiD,1))
>> PiD <- rbind(PiD, margin.table(PiD,2))
>>
>> Now I would like to add the Column Name and Row Name "Total" to the last
>> row
>> and last column (where the marginal totals now hang out). When I use the
>> command
>>
>> colnames(PiD[,4]) <- c("total") I get the error:
>>
>> Error in `colnames<-`(`*tmp*`, value = "WTF") :
>> attempt to set colnames on object with less than two dimensions
>>
>>
>> Since I am still new to R, I can't really understand the error... Can
>> someone tell me what I am doing wrong here?
>>
>> Thanks
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> 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<http://www.r-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
>
[[alternative HTML version deleted]]
______________________________________________
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.
