#create data and write file
len <- 25
val <- list(random = matrix(runif(len * len),nrow = len))
ax <- list(x = 1:len,
y = 1:len)
write.dmna("myfile.dmna", val, ax)
# show first lines
writeLines(readLines('myfile.dmna', n=12))
# delete file
unlink("myfile.dmna")
Run the code above in your browser using DataLab