if (FALSE) {
tck <- read.dti.tck("brain.tck", max_tracks = 1000);
write.dti.tck(tck$tracks, "first_1000.tck", header = tck$header);
# Round trip through a compressed file:
write.dti.tck(tck$tracks, "copy.tck.gz");
}
Run the code above in your browser using DataLab