# NOT RUN {
data("gwa_sample")
switched_data <- gwa_sample[ , c("MARKER", "EFFECT_ALL",
"OTHER_ALL", "STRAND")]
switched_data[1:10, ]
switched_data[ , 2:4] <- switch_strand(input =
switched_data[ , 2:4], strand_col = TRUE)
switched_data[1:10, ]
# }
Run the code above in your browser using DataLab