Displaying 2 results from an estimated 2 matches for "prepareddata".
Did you mean:
prepared_data
2005 Feb 18
1
Two-factorial Huynh-Feldt-Test
...;- 0
for (i in 1: r) SSrm<- SSrm + mean(X[i,])^2
epsilon <- (ncol^2*(D-SPm)^2) / ((ncol-1) * (SPm2 - 2*ncol*SSrm +
ncol^2*SPm^2))
print(epsilon)
}
# 2. do variance-covariance matrices for conditions first
avCov2 <- matrix(rep(0,36),ncol=length(unique( roi )))
for (iCond in 1:length(preparedData[1,3:4])) {
mtx <- NULL
for (iROI in 1:length(unique( roi ))) {
mtx <- c(mtx,
preparedData[roi==unique(roi)[iROI],iCond + 4])
}
mtx <- matrix(mtx, ncol=length(unique( roi )), byrow=F)
avCov2 <- avCov2 + cov(mtx)
}
avCov2 <- avCov2 / length(preparedData[1,3:4...
2012 Mar 29
2
How to improve, at all, a simple GLM code
Hi There,
I am trying to fit a logit model to some data in a CSV file in R.
Here is my code:
Prepared_Data = read.csv("Prepared_Data.csv", header=TRUE)
Prepared_Data
attach(Prepared_Data)
lrfit<-glm(C3~A1*B2*D4*E5,family = binomial)
anova(lrfit, test="Chisq")
write.csv(anova(lrfit, test="Chisq"), file="CWModelA.csv")
shell.exec("CWModelA.csv")