# load abf1 data
data(abf1)
# take out first 6 arrays
## Not run:
# smalldata <- subset(abf1, array=1:6)
# # write to file
# write.madata(smalldata, datafile="smallabf1.txt",
# designfile="smallabf1design.txt")## End(Not run)
Run the code above in your browser using DataLab