Displaying 2 results from an estimated 2 matches for "fullarray".
Did you mean:
fill_array
2002 Jul 01
1
chi square residuals
...ult <- chisq.test(userDefined)
}
#
print(result)
obs <- result$observed
exp <- result$expected
chi.table <- ((obs - exp)^2)/exp
row.sum <- apply(obs,1,sum)
col.sum <- apply(obs,2,sum)
N <- sum(obs)
#
fullArray <- cbind(obs,row.sum)
fullArray <- rbind(fullArray,c(col.sum,N))
rownames(fullArray) <- c(rownames(obs), "Total")
colnames(fullArray) <- c(colnames(obs), "Total")
#
# following doesn't work
# res.norm <- ((obs-exp)/sqrt(exp))/(...
2002 Jul 02
1
subscript out of bounds
...esult <- chisq.test(table(x,y))
}
else{
result <- chisq.test(userDefined)
}
#
print(result)
obs <- result$observed
exp <- result$expected
chi.table <- ((obs - exp)^2)/exp
row.sum <- apply(obs,1,sum)
col.sum <- apply(obs,2,sum)
N <- sum(obs)
#
fullArray <- cbind(obs,row.sum)
fullArray <- rbind(fullArray,c(col.sum,N))
rownames(fullArray) <- c(rownames(obs), "Total")
colnames(fullArray) <- c(colnames(obs), "Total")
#
return(list(Complet=fullArray,Expected=exp,Chi=chi.table))
}
-.-.-.-.-.-.-.-.-.-.-.-.-.-....