# NOT RUN {
data(immdata)
dirpath <- tempdir()
# Save the list of repertoires
repSave(immdata, dirpath)
# Load it and check if it is the same
new_immdata <- repLoad(dirpath)
sum(immdata$data[[1]] != new_immdata$data[[1]], na.rm = TRUE)
sum(immdata$data[[2]] != new_immdata$data[[2]], na.rm = TRUE)
sum(immdata$meta != new_immdata$meta, na.rm = TRUE)
# }
Run the code above in your browser using DataLab