Displaying 3 results from an estimated 3 matches for "agemf".
Did you mean:
agem1
2005 Aug 18
1
How do I make a Sweave + latex table out of this ?
Dear list,
I have a table that I would like to convert to latex for inclusion
into a Sweave file.
> round(ftable(prop.table(xtabs(~agemF + votcat + Type , data=work),margin=2))*100,1)
Type Voiced Voiceless unaspirated Voiceless aspirated
agemF votcat
18 - 24 Prevoiced 2.6 8.7 2.3
Short lag 5.8...
2005 Nov 09
1
Problems with Shapiro Wilk's test of normality.
...}
+
+ }
+
+ }
+
+ outstr <- paste(premark,'W=',W,',p=',shap,postmark,stars,sep="")
+ }
+ else{
+ outstr <- ""
+ }
+
+
+ return(outstr)
+
+ }
>
> ftable(tapply(aspvotwork$ampratio,list(Place=aspvotwork$Place,Age=aspvotwork$agemF,voicetype=aspvotwork$Type),FUN="length" ))
voicetype Voiced Voiceless unaspirated Voiceless aspirated
Place Age
Velar 18 - 24 44 41 34
24 - 30 70 81 71
30 - 3...
2005 Aug 30
1
Convert ftable to latex?
...ut a ftable objet the way I
want it. Is it posible?
I found a post in the archives saying that one should use the rgroup
and n.rgroup arguments to supply the row names, but so far I have been
unsuccessful.
This is what I have:
> (ftable(tapply(worksub$vot,list(votcat=worksub$votcat,age=worksub$agemF,voicetype=worksub$Type),FUN="distribution.table.fun",digits=4)) -> ftab)
voicetype Voiced Voiceless
unaspirated Voiceless aspirated
votcat age
Prevoiced 18 - 24 46.6158 (0;-1.6652) 40.7417
(0;-0.6489) 48.4164 (0;-1.0483)...