projects
/
iramuteq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
...
[iramuteq]
/
Rscripts
/
afc_graph.R
diff --git
a/Rscripts/afc_graph.R
b/Rscripts/afc_graph.R
index
8233d8f
..
e3dce92
100644
(file)
--- a/
Rscripts/afc_graph.R
+++ b/
Rscripts/afc_graph.R
@@
-187,7
+187,8
@@
if (typegraph == 0) {
rain = rainbow(clnb)
colors = rain[classes]
#rn <- rownames(table.in)
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)
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)