projects
/
iramuteq
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
irlba
[iramuteq]
/
Rscripts
/
CHD.R
diff --git
a/Rscripts/CHD.R
b/Rscripts/CHD.R
index
049d5c7
..
53fb813
100644
(file)
--- a/
Rscripts/CHD.R
+++ b/
Rscripts/CHD.R
@@
-41,7
+41,7
@@
find.max <- function(dtable, chitable, compte, rmax, maxinter, sc, TT) {
res
}
res
}
-CHD<-function(data.in, x=9, mode.patate = FALSE,
libsvdc=FALSE
, libsvdc.path=NULL){
+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
row.names(dataori) <- rownames(data.in)
# sink('/home/pierre/workspace/iramuteq/dev/findchi2.txt')
dataori <- data.in
row.names(dataori) <- rownames(data.in)
@@
-78,7
+78,7
@@
CHD<-function(data.in, x=9, mode.patate = FALSE, libsvdc=FALSE, libsvdc.path=NUL
#extraction du premier facteur de l'afc
print('afc')
pp('taille dtable dans boucle (col/row)',c(ncol(dtable),nrow(dtable)))
#extraction du premier facteur de l'afc
print('afc')
pp('taille dtable dans boucle (col/row)',c(ncol(dtable),nrow(dtable)))
- afc<-boostana(dtable, nd=1,
libsvdc=libsvdc
, libsvdc.path=libsvdc.path)
+ afc<-boostana(dtable, nd=1,
svd.method = svd.method
, libsvdc.path=libsvdc.path)
pp('SV',afc$singular.values)
pp('V.P.', afc$eigen.values)
coordrow <- as.matrix(afc$row.scores[,1])
pp('SV',afc$singular.values)
pp('V.P.', afc$eigen.values)
coordrow <- as.matrix(afc$row.scores[,1])