Commit | Line | Data |
---|---|---|
b7cd987d BA |
1 | #TODO: some visualization |
2 | #for (i in 1:6) {plot(medoids_ascii[i,1:200],type="l",ylim=c(-5,5),col=i);par(new=TRUE)} | |
3 | #... | |
4 | #PLOT: | |
5 | #plot manifold 2D distances WER / --> récupérer les distances ? quand ? | |
6 | #fenetre tempo forme des courbes / --> OK (jour[type] / semaine, indices en arg) | |
7 | #medoids / --> OK (moyennés sur 1 jour / type de jour / semaine) | |
8 | #gain en prevision: clust puis full --> enercast (comment l'utiliser ?) | |
9 | # | |
10 | #> plot(cr$medoids[1:100,1],type="l") | |
11 | #> #for (i in 1:15)plot(cr$medoids[1:100,1],type="l") | |
12 | #> r = range(cr$medoids[1:96,]) | |
13 | #> for (i in 1:15) {plot(cr$medoids[1:96,i],type="l",ylim=r,col=i); par(new=TRUE) } | |
14 | #> | |
15 | # |