#Author: Pierre Ratinaud
#Copyright (c) 2008-2011 Pierre Ratinaud
-#Lisense: GNU/GPL
+#License: GNU/GPL
pp<-function(txt,val) {
d<-paste(txt,' : ')
res
}
+
+
+
+
CHD<-function(data.in, x=9, mode.patate = FALSE, svd.method, libsvdc.path=NULL){
# sink('/home/pierre/workspace/iramuteq/dev/findchi2.txt')
dataori <- data.in
rmax <- NULL
inert <- find.max(dtable, chitable, compte, rmax, maxinter, sc, TT)
- print('@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
+ print('@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
pp('max inter phase 1', inert$maxinter/TT)#max(listinter))
print('@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
ordert <- ordert[order(ordert[,3]),]