8d2c961d0ae58ac119aa9ed2292e42a01c534c32
[epclust.git] / pkg / R / plot.R
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 #