Displaying 1 result from an estimated 1 matches for "averagedresults".
2009 Jul 15
1
Help with averaging
...ript down considerably.
#SCRIPT STARTS
rm(list=ls())
setwd("C:/Documents and Settings/Amit Patel")
#na.strings makes na's readable
zz <- read.csv("Pr9549_LabelFreeData_ByExperimentAK.csv",strip.white = TRUE, na.strings = "NA")
ix <- seq(from=2,to=62, by=2)
averagedResults <- (zz[,ix] + zz[,ix+1])/2
averagedResults <- cbind(zz[,1],averagedResults )
colnames(averagedResults) <- c("PCI","G1-C1","G1-C2","G1-C3","G1-C4","G1-C5","G1-C6","G1-C7","G1-C8",
"G2-C9",&...