Displaying 2 results from an estimated 2 matches for "conc3".
Did you mean:
conc
2012 Nov 30
1
help on "stacking" matrices up
...E2))
CAFTINF2 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*Tinf))*(exp(-0.088*(TIME2)))
CONC2 <-ifelse(TIME2<=Tinf,CDURINF2,CAFTINF2)
CDURINF3 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*TIME3))
CAFTINF3 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*Tinf))*(exp(-0.088*(TIME3)))
CONC3 <-ifelse(TIME3<=Tinf,CDURINF3,CAFTINF3)
CDURINF4 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*TIME4))
CAFTINF4 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*Tinf))*(exp(-0.088*(TIME4)))
CONC4 <-ifelse(TIME4<=Tinf,CDURINF4,CAFTINF4)
CDURINF5 <-((Dose/Tinf)*(1/(0.088*76.9)))*(...
2011 Jan 11
0
modified FAST Script from package SensoMineR for the R community - Reg
...] = length(levels(don[, i]))
}
tdc = tab.disjonctif(don)
gp = 0
for (i in 1:J) {
conc = cbind(c(1:lev[i]), acm$var$coord[(1 + gp):(gp +
lev[i]), 1])
o = order(conc[, 2])
conc2 = cbind(conc[o, ], c(1:lev[i]))
o2 = order(conc2[, 1])
conc3 = conc2[o2, ]
out[, i] = tdc[, (1 + gp):(gp + lev[i])] %*% conc3[,
3]
gp = gp + lev[i]
}
out = data.frame(out)
for (i in 1:J) {
out[, i] = as.factor(out[, i])
}
catego_num2 = out[ordre_prod, ]
catego_num2 = catego_num2[, ord]
rownames...