## Not run:
# # Collect some data to flatten
# ids <- c(40,50,60,70)
# data <- lapply(ids, gatherData)
# # Flatten the data trees to a table
# flat.table <- flatten(data)
# # reimport the table into a tree
# data.reimported <- apply(flat.table, 1, readMbdata)
# ## End(Not run)
Run the code above in your browser using DataLab