X-Git-Url: https://git.auder.net/?p=epclust.git;a=blobdiff_plain;f=epclust%2FR%2Fplot.R;fp=epclust%2FR%2Fplot.R;h=8d2c961d0ae58ac119aa9ed2292e42a01c534c32;hp=096159de0569ba25ee8da10b3808284c9a4a86d4;hb=bac8fad2fe4ad3fbcf10673b108375420b5f30ba;hpb=a2fd2d76599672ac6396a0da1ae72007705044cb

diff --git a/epclust/R/plot.R b/epclust/R/plot.R
index 096159d..8d2c961 100644
--- a/epclust/R/plot.R
+++ b/epclust/R/plot.R
@@ -1,3 +1,15 @@
 #TODO: some visualization
 #for (i in 1:6) {plot(medoids_ascii[i,1:200],type="l",ylim=c(-5,5),col=i);par(new=TRUE)}
 #...
+#PLOT:
+#plot manifold 2D distances WER / --> récupérer les distances ? quand ?
+#fenetre tempo forme des courbes / --> OK (jour[type] / semaine, indices en arg)
+#medoids / --> OK (moyennés sur 1 jour / type de jour / semaine)
+#gain en prevision: clust puis full --> enercast (comment l'utiliser ?)
+#
+#> plot(cr$medoids[1:100,1],type="l")
+#> #for (i in 1:15)plot(cr$medoids[1:100,1],type="l")
+#> r = range(cr$medoids[1:96,])
+#> for (i in 1:15) {plot(cr$medoids[1:96,i],type="l",ylim=r,col=i); par(new=TRUE) }
+#> 
+#