projects
/
iramuteq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
windows
[iramuteq]
/
Rscripts
/
CHD.R
diff --git
a/Rscripts/CHD.R
b/Rscripts/CHD.R
index
a480df9
..
4e64b01
100644
(file)
--- a/
Rscripts/CHD.R
+++ b/
Rscripts/CHD.R
@@
-230,7
+230,7
@@
CHD<-function(data.in, x=9, mode.patate = FALSE, svd.method, libsvdc.path=NULL){
print('longueur < 0')
malcl<-length(vdelta)
if ((it>1)&&(!is.logical(listsub[[it]]))&&(!is.logical(listsub[[it-1]]))){
- if (
listsub[[it]]==listsub[[(it-1)]]
){
+ if (
all(listsub[[it]]==listsub[[(it-1)]])
){
malcl<-0
}
}