Displaying 1 result from an estimated 1 matches for "upact".
Did you mean:
pact
2006 Mar 23
0
Writing a function to fit ALSOS models. problem with normalization?
...values to within-category means
mx[,i] = catmeans[tmpfac]
# normalize according to Young (1981)
mx[,i] = mx[,i] * (nx[,i] %*% nx[,i]) / (mx[,i] %*% mx[,i])
}
x[,x.facs] = mx[,x.facs]
}
}
# as described in Kruskal (1964)
kruskal.ordering = function(numeric.data, tmpfac) {
j = 1
upact = T
while(T) {
catmeans = tapply(numeric.data, tmpfac, mean) # vector w as many
items as tmpfac cats
# have we finished?
if (j>nlevels(tmpfac)) return (list(catmeans=catmeans,tmpfac=tmpfac))
if ((j==nlevels(tmpfac) || catmeans[j] <= catmeans[j+1]) &&
(j==1 || catmeans[j]...