-
Notifications
You must be signed in to change notification settings - Fork 1
/
carto.Rnw
118 lines (109 loc) · 4.31 KB
/
carto.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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
% !Rnw root = exam.Rnw
\textbf{Cartographie}
\begin{itemize}
\item Quels sont les objectifs recherchés avec la classification ascendante hiérarchique?
\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}
<<carto1, eval= input$checkcartovar, echo=FALSE, results='markup', dev="png", fig.width=8, dpi=240, fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$varcarto1 != "ø") {
CartoVar(spdf = baseData$spdf, df = baseData$df, idtab = input$idtab, idshape = input$idshape, varquanti = input$varcarto1, discret = input$discret1, nbcl = input$nbcl1)
}
@
<<carto2, eval= input$checkcartovar, echo=FALSE, results='markup', dev="png", fig.width=8, dpi=240, fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$varcarto2 != "ø") {
CartoVar(spdf = baseData$spdf, df = baseData$df, idtab = input$idtab, idshape = input$idshape, varquanti = input$varcarto2, discret = input$discret2, nbcl = input$nbcl2)
}
@
<<carto3, eval= input$checkcartoana, echo=FALSE, results='markup', dev="png", fig.width=8, dpi=240, fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$varcarto3 == "reg1") {
if(is.null(input$varquantiquanti)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoRegression(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = regResults1,
nbcl = input$nbcl3)
}
} else if(input$varcarto3 == "reg2"){
if(is.null(input$varregress2)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoRegression(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = regResults2,
nbcl = input$nbcl3)
}
} else if(input$varcarto3 == "acp"){
if(is.null(input$varacp)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoFacto(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = pcaResults,
nbcl = input$nbcl3)
}
} else if(input$varcarto3 == "cah"){
if(is.null(input$varcah)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoClass(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = clusProfile)
}
}
@
<<carto4, eval= input$checkcartoana, echo=FALSE, results='markup', dev="png", fig.width=8, dpi=240, fig.ext="png", fig.pos="H", warning=FALSE, message=FALSE>>=
if(input$varcarto4 == "reg1") {
if(is.null(input$varquantiquanti)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoRegression(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = regResults1,
nbcl = input$nbcl4)
}
} else if(input$varcarto4 == "reg2"){
if(is.null(input$varregress2)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoRegression(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = regResults2,
nbcl = input$nbcl4)
}
} else if(input$varcarto4 == "acp"){
if(is.null(input$varacp)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoFacto(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = pcaResults,
nbcl = input$nbcl4)
}
} else if(input$varcarto4 == "cah"){
if(is.null(input$varcah)){
print("Il n'y a pas d'analyse à cartographier")
} else {
CartoClass(spdf = baseData$spdf,
df = baseData$df,
idtab = input$idtab,
idshape = input$idshape,
model = clusProfile)
}
}
@