build_minimal_coh_to_from_csv_file.R

In JesseRed/dataVis: What the Package Does (One Line, Title Case)

library(data.table)
library(tidyverse)
D3<-fread('./preprocessing/export_table_coh_old_mag.csv', header = TRUE, sep = ',', check.names = FALSE)


D3 <- D3 %>% select(-contains("parietooccipital_central_from>"))
D3 <- D3 %>% select(-contains(">parietooccipital_central_from"))
D3 <- D3 %>% select(-contains("parietooccipital_cen>"))
D3 <- D3 %>% select(-contains(">parietooccipital_cen"))


D3 <- D3 %>% select(-contains("frontal_left_from>"))
D3 <- D3 %>% select(-contains(">frontal_left_from"))
D3 <- D3 %>% select(-contains("frontal_right_from>"))
D3 <- D3 %>% select(-contains(">frontal_right_from"))


D3 <- D3 %>% select(-contains("frontocentral_l_from>"))
D3 <- D3 %>% select(-contains(">frontocentral_l_from"))
D3 <- D3 %>% select(-contains("frontocentral_r_from>"))
D3 <- D3 %>% select(-contains(">frontocentral_r_from"))


D3 <- D3 %>% select(-contains("temporal_links_from>"))
D3 <- D3 %>% select(-contains(">temporal_links_from"))
D3 <- D3 %>% select(-contains("temporal_rechts_from>"))
D3 <- D3 %>% select(-contains(">temporal_rechts_from"))


D3 <- D3 %>% select(-contains("parietal_left_from>"))
D3 <- D3 %>% select(-contains(">parietal_left_from"))
D3 <- D3 %>% select(-contains("parietal_right_from>"))
D3 <- D3 %>% select(-contains(">parietal_right_from"))

D3 <- D3 %>% select(-contains("parietooccipital_l_from>"))
D3 <- D3 %>% select(-contains(">parietooccipital_l_from"))
D3 <- D3 %>% select(-contains("parietooccipital_r_from>"))
D3 <- D3 %>% select(-contains(">parietooccipital_r_from"))

D3 <- D3 %>% select(-contains("parieto_occ_l_from>"))
D3 <- D3 %>% select(-contains(">parieto_occ_l_from"))
D3 <- D3 %>% select(-contains("parieto_occ_r_from>"))
D3 <- D3 %>% select(-contains(">parieto_occ_r_from"))

D3 <- D3 %>% select(-contains("1."))
D3 <- D3 %>% select(-contains("2."))
D3 <- D3 %>% select(-contains("3."))
D3 <- D3 %>% select(-contains("4."))
D3 <- D3 %>% select(-contains("5."))
D3 <- D3 %>% select(-contains("6."))
D3 <- D3 %>% select(-contains("7."))
D3 <- D3 %>% select(-contains("8."))
D3 <- D3 %>% select(-contains("9."))
D3 <- D3 %>% select(-contains("10."))
D3 <- D3 %>% select(-contains("20."))
D3 <- D3 %>% select(-contains("30."))
D3 <- D3 %>% select(-contains("40."))
D3 <- D3 %>% select(-contains("8832"))
D3 <- D3 %>% select(-contains("9344"))
D3 <- D3 %>% select(-contains("12928"))
D3 <- D3 %>% select(-contains("13440"))
D3 <- D3 %>% select(-contains("13952"))
D3 <- D3 %>% select(-contains("14464"))
D3 <- D3 %>% select(-contains("29824"))
D3 <- D3 %>% select(-contains("30336"))

write.csv(D3,"./preprocessing/test_coh_to_from.csv", row.names = FALSE)
write.csv(D3,"./app/tests/testthat/data/test_coh_to_from.csv", row.names = FALSE)