projects
/
iramuteq
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5280f41
)
...
author
Pierre
<ratinaud@univ-tlse2.fr>
Wed, 30 Jan 2013 22:39:38 +0000
(23:39 +0100)
committer
Pierre
<ratinaud@univ-tlse2.fr>
Wed, 30 Jan 2013 22:39:38 +0000
(23:39 +0100)
Rscripts/afc_graph.R
patch
|
blob
|
history
diff --git
a/Rscripts/afc_graph.R
b/Rscripts/afc_graph.R
index
f450f1e
..
8233d8f
100644
(file)
--- a/
Rscripts/afc_graph.R
+++ b/
Rscripts/afc_graph.R
@@
-187,11
+187,11
@@
if (typegraph == 0) {
rain = rainbow(clnb)
colors = rain[classes]
#rn <- rownames(table.in)
rain = rainbow(clnb)
colors = rain[classes]
#rn <- rownames(table.in)
-
open3d
()
+
rgl.open
()
text3d(table.in[,1], table.in[,2], table.in[,3], rn, col = colors , cex = cex.par)
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)
#par3d(windowRect = c(100,100,600,600))
par3d(cex=0.7)
#par3d(windowRect = c(100,100,600,600))
- rgl.bg(col = c('white', "#99bb99"), front = "lines", box=FALSE, sphere = FALSE)
rgl.lines(c(rx), c(0, 0), c(0, 0), col = "#000000")
rgl.lines(c(0,0),c(ry),c(0,0),col = "#000000")
rgl.lines(c(0,0),c(0,0),c(rz),col = "#000000")
rgl.lines(c(rx), c(0, 0), c(0, 0), col = "#000000")
rgl.lines(c(0,0),c(ry),c(0,0),col = "#000000")
rgl.lines(c(0,0),c(0,0),c(rz),col = "#000000")