dir.create("data_in_one")
library(immunarch)
for (dirname in dir("D:/R-4.1.2/library/immunarch/ImmuneCODE-Repertoires-002.2/")){
file_path = paste0(system.file(package="immunarch"), "/ImmuneCODE-Repertoires-002.2/",dirname)
dirname1 <- repLoad(file_path)
dirname.ex <- repFilter(
.data = dirname1,
.method = "by.clonotype",
.query = list(CDR3.aa = exclude("na", "out_of_frame")),
.match = "exact"
)
save_file = paste0(system.file(package="immunarch"), "/data_in_one/",dirname)
write.table (dirname.ex, file =save_file, row.names = FALSE, col.names =FALSE, quote =FALSE)
}
