forked from hcommenges/ExaminatR
-
Notifications
You must be signed in to change notification settings - Fork 0
/
qualiquali.Rnw
52 lines (34 loc) · 1.42 KB
/
qualiquali.Rnw
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
% !Rnw root = exam.Rnw
\textbf{Analyse quali-quali}
\begin{itemize}
\item Quel est le type des variables; quel est le type d'analyse?
\item Comment doit-on lire les tableaux: que représentent les nombres, quelles sont les unités de mesure, etc. ?
\item Rédiger un texte mobilisant les mesures pertinentes contenues dans les tableaux et calculées à partir des tableaux.
\end{itemize}
~
<<qualiquali0, echo=FALSE, results='markup', dev="my_png", fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
Mosaicplot(df = baseData$df, varx = input$varqualiquali[2], vary = input$varqualiquali[1])
@
~
\emph{Effectifs observés}
<<qualiquali1, echo=FALSE, results='markup', warning=FALSE, message=FALSE>>=
chiResults <- ContTab(df = baseData$df, varx = input$varqualiquali[2], vary = input$varqualiquali[1])
nbColumns <- ncol(chiResults$OBS)
kable(chiResults$OBS, align = rep("r", times = nbColumns))
@
~
\emph{Effectifs espérés}
<<qualiquali2, echo=FALSE, results='markup', warning=FALSE, message=FALSE>>=
kable(chiResults$EXP, align = rep("r", times = nbColumns))
@
~
\emph{Résidus bruts}
<<qualiquali3, echo=FALSE, results='markup', warning=FALSE, message=FALSE>>=
kable(chiResults$RAWRESID, align = rep("r", times = nbColumns))
@
~
\emph{Résidus standardisés au carré}
<<qualiquali4, echo=FALSE, results='markup', warning=FALSE, message=FALSE>>=
kable(chiResults$STSQRESID, align = rep("r", times = nbColumns))
@
~