I am reading in a bunch of files and then processing them all in the same
way.
I am sure there as a better way then to copy and past the code for each
file. Here is what I've done so far
InputFiles<-
as.character(list.files("~/ISLE/RWork/DataWarehouseMining/byCourse/"))
#Path to the Course data files
for (i in InputFiles) {
# print(head(read.csv(paste("~/ISLE/RWork/DataWarehouseMining/byCourse/",
i, sep=""))))
print(paste("Reading file ~/ISLE/RWork/DataWarehouseMining/byCourse/", i,
sep=","))
assign(i, read.csv(paste("~/ISLE/RWork/DataWarehouseMining/byCourse/", i,
sep="")))
}#note last file is NOT a course file by the student information.
Master<-StudentInfoForRobertWUnitAt7A_2.csv #this is the last file
CourseFiles <-InputFiles[- c(15,16)] # ignore the student info ...7A.csv &
...7A_2.csv
#for each file I do the following
#Bis 101
summary(BigInstBIS101.csv)
B101 <- BigInstBIS101.csv[-c(3,4,8)]
summary(B101)
B101$WH_ID <- as.factor(B101$WH_ID)
B101$SID <- as.factor(B101$SID)
B101$TERM <- as.factor(B101$TERM)
B101$CRN <- as.factor(B101$CRN)
B101$CRN_TRM <- as.factor(B101$CRN_TRM)
B101$INST_NUM <- as.factor(B101$INST_NUM)
B101$zGrade <- with(B101, ave(GRADE., list(TERM, INST_NUM), FUN = scale))
write.csv(B101,"B101.csv", row.names = FALSE)
#Bis 2A
B2A <- BigInstBIS2A.csv[-c(3,4,8)]
summary(B2A)
B2A$WH_ID <- as.factor(B2A$WH_ID)
B2A$SID <- as.factor(B2A$SID)
B2A$TERM <- as.factor(B2A$TERM)
B2A$CRN <- as.factor(B2A$CRN)
B2A$CRN_TRM <- as.factor(B2A$CRN_TRM)
B2A$INST_NUM <- as.factor(B2A$INST_NUM)
B2A$zGrade <- with(B2A, ave(GRADE., list(TERM, INST_NUM), FUN = scale))
write.csv(B2A,"B2A.csv", row.names = FALSE)
And so on for another 12 courses, however I am changing what I am doing as
part of the reading in the file and don't want to replace the code in 14
different places.
suggestions? Thanks!
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
