library(dplyr)

OCR_adt_br <- read.table(
  "OCR_allTissue.txt",
  header = TRUE,
  sep = "\t"
) %>%
  dplyr::filter(
    Tissue   == "Br",
    Age      == "adt",
    Exposure %in% c("BPA10mg", "BPA10ug")
  )
write.table(
  OCR_adt_br,
  "OCR_adt_br.txt",
  row.names = FALSE,
  col.names = TRUE,
  sep = "\t"
)
DEG_adt_br <- read.table(
  "DEG_adt_br.txt",
  header = TRUE,
  sep = "\t"
) %>%
  dplyr::filter(
    tissue == "brain",
    stage  == "20weeks",
    lab    == "Bartolomei"
  )
write.table(
  DEG_adt_br,
  "DEG_adt_br.txt",
  row.names = FALSE,
  col.names = TRUE,
  sep = "\t"
)