R34.R

In fredfeng/MorpheusData: Data sets for Morpheus

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

#############benchmark 35
m <- data.frame(
    K = 230, 
    M = 128, 
    G = 420 
)

s <- data.frame(
    size = 1:3,
    mult = c('K', 'M', 'G')
)

m = as.data.frame(t(m))
m$mult = rownames(m)
colnames(m)[which(colnames(m) == "V1")] = "value"


write.csv(s, "data-raw/r34_input1.csv", row.names=FALSE)
write.csv(m, "data-raw/r34_input2.csv", row.names=FALSE)

df_out = s %>% 
  inner_join(m) %>% 
  mutate(total = value/size) %>% 
  select(size, mult, total)

write.csv(df_out, "data-raw/r34_output1.csv", row.names=FALSE)

r34_output1 <- read.csv("data-raw/r34_output1.csv", check.names = FALSE)
fctr.cols <- sapply(r34_output1, is.factor)
int.cols <- sapply(r34_output1, is.integer)

r34_output1[, fctr.cols] <- sapply(r34_output1[, fctr.cols], as.character)
r34_output1[, int.cols] <- sapply(r34_output1[, int.cols], as.numeric)
save(r34_output1, file = "data/r34_output1.rdata")

r34_input1 <- read.csv("data-raw/r34_input1.csv", check.names = FALSE)
fctr.cols <- sapply(r34_input1, is.factor)
int.cols <- sapply(r34_input1, is.integer)

r34_input1[, fctr.cols] <- sapply(r34_input1[, fctr.cols], as.character)
r34_input1[, int.cols] <- sapply(r34_input1[, int.cols], as.numeric)
save(r34_input1, file = "data/r34_input1.rdata")

r34_input2 <- read.csv("data-raw/r34_input2.csv", check.names = FALSE)
fctr.cols <- sapply(r34_input2, is.factor)
int.cols <- sapply(r34_input2, is.integer)

r34_input2[, fctr.cols] <- sapply(r34_input2[, fctr.cols], as.character)
r34_input2[, int.cols] <- sapply(r34_input2[, int.cols], as.numeric)
save(r34_input2, file = "data/r34_input2.rdata")