Displaying 1 result from an estimated 1 matches for "proteinsfor2wayanova_set".
2011 Jan 24
2
normality and equal variance testing
...-<--<--<--<-- supply the number of files
containing the source data here
for (iIndx in 1:numFiles) {
sinkFilePath = paste("C:/AnovaData/2WayAnovaForProteins_Set", iIndx,
".txt", sep="")
sink(sinkFilePath)
sourceFilePath = paste("C:/AnovaData/ProteinsFor2WayAnova_Set", iIndx, ".txt",
sep="")
dataSet = read.delim(sourceFilePath)
numProteins = ncol(dataSet)
nameProteins = colnames(dataSet)
for (i in 3:numProteins) {
fla = as.formula(paste(nameProteins[i],"~","Trt*Dose"))
mod = lm(fla, data = dataSet , contra...