S1.R

In fredfeng/MorpheusData: Data sets for Morpheus

# making table data sets
library(dplyr)
library(tidyr)
library(MorpheusData)

#############benchmark 43
class <- read.table(text=
"C_name F_key
class1 f1
class2 f2
class3 f1
class4 f3
class5 f4", header=T)

enroll <- read.table(text=
"S_key C_name
S1 class1
S2 class1
S3 class2
S3 class5
S4 class2
S4 class4
S5 class3
S6 class3
S6 class2
S7 class5
S8 class4",header=T)

faculty <- read.table(text=
"F_key F_name
f1 faculty1
f2 faculty2
f3 faculty3
f4 faculty4",header=T)

student <- read.table(text=
"S_key S_name level
S1 stu1 JR
S2 stu2 SR
S3 stu3 JR
S4 stu4 SR
S5 stu5 JR
S6 stu6 SR
S7 stu7 JR
S8 stu8 JR",header=T)

# write.csv(class, "sql/class.csv", row.names=FALSE)
# write.csv(enroll, "sql/enroll.csv", row.names=FALSE)
# write.csv(faculty, "sql/faculty.csv", row.names=FALSE)
# write.csv(student, "sql/student.csv", row.names=FALSE)

# enroll <- read.csv("sql/enroll.csv", check.names = FALSE)
# fctr.cols <- sapply(enroll, is.factor)
# int.cols <- sapply(enroll, is.integer)
# enroll[, fctr.cols] <- sapply(enroll[, fctr.cols], as.character)
# enroll[, int.cols] <- sapply(enroll[, int.cols], as.numeric)
# save(enroll, file = "sql/enroll.rdata")

# faculty <- read.csv("sql/faculty.csv", check.names = FALSE)
# fctr.cols <- sapply(faculty, is.factor)
# int.cols <- sapply(faculty, is.integer)
# faculty[, fctr.cols] <- sapply(faculty[, fctr.cols], as.character)
# faculty[, int.cols] <- sapply(faculty[, int.cols], as.numeric)
# save(faculty, file = "sql/faculty.rdata")

# student <- read.csv("sql/student.csv", check.names = FALSE)
# fctr.cols <- sapply(student, is.factor)
# int.cols <- sapply(student, is.integer)
# student[, fctr.cols] <- sapply(student[, fctr.cols], as.character)
# student[, int.cols] <- sapply(student[, int.cols], as.numeric)
# save(student, file = "sql/student.rdata")

# class <- read.csv("sql/class.csv", check.names = FALSE)
# fctr.cols <- sapply(class, is.factor)
# int.cols <- sapply(class, is.integer)
# class[, fctr.cols] <- sapply(class[, fctr.cols], as.character)
# class[, int.cols] <- sapply(class[, int.cols], as.numeric)
# save(class, file = "sql/class.rdata")

input=inner_join(class,enroll) %>% 
inner_join(faculty) %>% 
inner_join(student) 
write.csv(input, "data-raw/s1_input1.csv", row.names=FALSE)
s1_input1 <- read.csv("data-raw/s1_input1.csv", check.names = FALSE)
fctr.cols <- sapply(s1_input1, is.factor)
int.cols <- sapply(s1_input1, is.integer)
s1_input1[, fctr.cols] <- sapply(s1_input1[, fctr.cols], as.character)
s1_input1[, int.cols] <- sapply(s1_input1[, int.cols], as.numeric)
save(s1_input1, file = "data/s1_input1.rdata")

output=input%>%filter (F_name == "faculty1" & level == "JR") %>% select(S_name)
write.csv(output, "data-raw/s1_output1.csv", row.names=FALSE)
s1_output1 <- read.csv("data-raw/s1_output1.csv", check.names = FALSE)
fctr.cols <- sapply(s1_output1, is.factor)
int.cols <- sapply(s1_output1, is.integer)
s1_output1[, fctr.cols] <- sapply(s1_output1[, fctr.cols], as.character)
s1_output1[, int.cols] <- sapply(s1_output1[, int.cols], as.numeric)
save(s1_output1, file = "data/s1_output1.rdata")

# 5.1.1
inner_join(class,enroll) %>% 
inner_join(faculty) %>% 
inner_join(student) %>% 
filter (F_name == "faculty1" & level == "JR") %>% 
select(S_name)