Displaying 1 result from an estimated 1 matches for "freqprop".
2013 Apr 10
2
Table with n(%) formatting: A better way to do this?
...rep(x, warpbreaks$breaks)))
Freq <- with(breaks, addmargins(table(wool, tension), 2))
Prop <- round( prop.table(Freq, 2) * 100, 2 )
Freq <- addmargins(Freq, 1)
Prop <- addmargins(Prop, 1)
require(odfWeave)
class(Freq) <- "character"
class(Prop) <- "character"
FreqProp <- matrixPaste(Freq, "(", Prop, "%)", sep = c("", "", ""))
colnames(FreqProp) <- colnames(Freq)
rownames(FreqProp) <- rownames(Freq)
names(dimnames(FreqProp)) <- c("Wool", "")
FreqProp <- data.frame(Wool=rownames(...