Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data <- read.csv("/Users/ronzappardino/Downloads/keys_Indirect2.csv")
- View(data)
- output <- rep(0, length(data$Item) * 4) # This is the vector you want to make
- for (i in 1: length(data$Item)) {
- if (data$Item[i] == "Critical") {
- output[i*4] <- "Critical_Direct"
- output[i*4 + 1] <- "Critical_Indirect"
- output[i*4 + 2] <- "Critical_Related_NonSequiter"
- output[i*4 + 3] <- "Critical_Unrelated"
- } else if (data$Item[i] == "Control") {
- output[i*4] <- "Control_Direct"
- output[i*4 + 1] <- "Control_Indirect"
- output[i*4 + 2] <- "Control_Related_NonSequiter"
- output[i*4 + 3] <- "Control_Unrelated"
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement