projects
/
iramuteq
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2464872
)
...
author
Pierre Ratinaud
<ratinaud@univ-tlse2.fr>
Mon, 24 Nov 2014 23:27:48 +0000
(
00:27
+0100)
committer
Pierre Ratinaud
<ratinaud@univ-tlse2.fr>
Mon, 24 Nov 2014 23:27:48 +0000
(
00:27
+0100)
Rscripts/Rgraph.R
patch
|
blob
|
history
diff --git
a/Rscripts/Rgraph.R
b/Rscripts/Rgraph.R
index
8cc1c23
..
a00a186
100644
(file)
--- a/
Rscripts/Rgraph.R
+++ b/
Rscripts/Rgraph.R
@@
-628,7
+628,10
@@
plot.dendro.prof <- function(tree, classes, chisqtable, nbbycl = 60, type.dendro
names(ntoplot) <- rownames(toplot)
ntoplot <- ntoplot[order(ntoplot, decreasing = TRUE)]
ntoplot <- round(ntoplot, 0)
names(ntoplot) <- rownames(toplot)
ntoplot <- ntoplot[order(ntoplot, decreasing = TRUE)]
ntoplot <- round(ntoplot, 0)
- ntoplot <- ntoplot[1:nbbycl]
+ if (length(toplot) > nbbycl) {
+ ntoplot <- ntoplot[1:nbbycl]
+ }
+ ntoplot <- ntoplot[which(ntoplot > 0)]
#ntoplot <- ntoplot[order(ntoplot)]
#ntoplot <- ifelse(length(ntoplot) > nbbycl, ntoplot[1:nbbycl], ntoplot)
lclasses[[classe]] <- ntoplot
#ntoplot <- ntoplot[order(ntoplot)]
#ntoplot <- ifelse(length(ntoplot) > nbbycl, ntoplot[1:nbbycl], ntoplot)
lclasses[[classe]] <- ntoplot
@@
-696,7
+699,7
@@
plot.dendro.cloud <- function(tree, classes, chisqtable, nbbycl = 60, type.dendr
ntoplot <- ntoplot[1:nbbycl]
}
ntoplot <- ntoplot[order(ntoplot)]
ntoplot <- ntoplot[1:nbbycl]
}
ntoplot <- ntoplot[order(ntoplot)]
- ntoplot <-
which(ntoplot > 0)
+ ntoplot <-
ntoplot[which(ntoplot > 0)]
#ntoplot <- ifelse(length(ntoplot) > nbbycl, ntoplot[1:nbbycl], ntoplot)
lclasses[[classe]] <- ntoplot
}
#ntoplot <- ifelse(length(ntoplot) > nbbycl, ntoplot[1:nbbycl], ntoplot)
lclasses[[classe]] <- ntoplot
}