roster + grades -> ug + gs

grade.R

# Start R Grading Helper

#  ==========================
#  ===  Global Variables  ===
#  ==========================

folder <- "/Users/dfeng/Downloads/Grading"
roster_filename <- "ml_roster.csv"
grade_filename <- "ml_hw.csv"


#  ===========================
#  ===  Do Not Edit Below  ===
#  ===========================

setwd(folder)

# READ CSV

codes <- read.csv(roster_filename)
grades <- read.csv(grade_filename)

names(codes)[grep("User.ID",names(codes))] <- "Student.ID"

# MERGE BY ID
x <- merge(codes, grades, by="Student.ID")

# REMOVE NON-students
x <- subset(x, Role == "student")

# WRITING

gs <- subset(x, College.School == "GS" | College.School == "PH")
ug <- subset(x, College.School != "GS" & College.School != "PH")
write.csv(ug, "ug.csv")
write.csv(gs, "gs.csv")