...
authorPierre <ratinaud@univ-tlse2.fr>
Wed, 30 Jan 2013 22:52:52 +0000 (23:52 +0100)
committerPierre <ratinaud@univ-tlse2.fr>
Wed, 30 Jan 2013 22:52:52 +0000 (23:52 +0100)
Rscripts/afc_graph.R

index 8233d8f..e3dce92 100644 (file)
@@ -187,7 +187,8 @@ if (typegraph == 0) {
     rain = rainbow(clnb)
     colors = rain[classes]
     #rn <- rownames(table.in)
-    rgl.open()
+    #rgl.open()
+    par3d('userMatrix' = matrix(c(1,0,0,0, 0,1,0,0,0,0,1,0,0,0,0,1), ncol=4, nrow = 4))
     text3d(table.in[,1], table.in[,2], table.in[,3], rn, col = colors , cex = cex.par)
     rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = TRUE)
     par3d(cex=0.7)