data(example1)
write.sym.table(example1, file='temp4.csv', sep='|',dec='.', row.names=TRUE,
col.names=TRUE)
ex1<-read.sym.table('temp4.csv', header=TRUE, sep='|',dec='.', row.names=1)
Run the code above in your browser using DataLab