ExaminatR/acp.Rnw at master · hcommenges/ExaminatR · GitHub

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
53
54
55
56
57
58
59
60
61
62
63
64

% !Rnw root = exam.Rnw

\textbf{Analyse en composantes principales}

\begin{itemize}
  \item Quels sont les objectifs recherchés avec l'analyse en composantes principales?
  \item Comment doit-on lire les documents: que représentent les axes, quelles sont les unités de mesure, etc. ?
  \item Interpréter les résultats dans un texte rédigé.
\end{itemize}

~

<<acp1, echo=FALSE, results='markup', dev="my_png", fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
pcaResults <- ComputePrincipalComp(df = baseData$df, varquanti = input$varacp, ident = input$idtab)
DecompInertia(pcaResults)
@

~

<<acp2, echo=FALSE, results='markup', dev="my_png", fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
kable(CorCompMat(pcaResults, naxis = input$axisacp))
@

~

<<acp3, echo=FALSE, results='markup', dev="png", fig.width=9, dpi=240, fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$axisacp == 2){
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 2))
} else if(input$axisacp == 3){
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 2))
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 3))
  print(CorCircle(pcaResults, xaxis = 2, yaxis = 3))
} else if(input$axisacp == 4){
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 2))
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 3))
  print(CorCircle(pcaResults, xaxis = 1, yaxis = 4))
  print(CorCircle(pcaResults, xaxis = 2, yaxis = 3))
  print(CorCircle(pcaResults, xaxis = 2, yaxis = 4))
  print(CorCircle(pcaResults, xaxis = 3, yaxis = 4))
  }
@

~

<<acp4, echo=FALSE, results='markup', dev="my_png", fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$axisacp == 2){
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 2, printlabel = input$printlabel))
} else if(input$axisacp == 3){
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 2, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 3, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 2, yaxis = 3, printlabel = input$printlabel))
} else if(input$axisacp == 4){
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 2, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 3, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 1, yaxis = 4, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 2, yaxis = 3, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 2, yaxis = 4, printlabel = input$printlabel))
  print(PlotIndiv(pcaResults, xaxis = 3, yaxis = 4, printlabel = input$printlabel))
  }
@


~