## Not run:
# #############################################################################
# # EXAMPLE 1: Save dataset data.ma01
# #############################################################################
#
# #*** use data.ma01 as an example for writing data files using save.data
# data(data.ma01)
# dat <- data.ma01
#
# # set a working directory
# pf2 <- "P:/ARb/temp_miceadds"
#
# # save data in Rdata format
# save.data( dat , filename="ma01data" , type="Rdata" , path=pf2)
#
# # save data in table format without row and column names
# save.data( dat , filename="ma01data" , type="table" , path=pf2 ,
# row.names=FALSE , na =".", col.names=FALSE)
#
# # save data in csv2 format, including time stamp in file name
# # and row index and time stamp in saved data
# save.data( dat , filename="ma01data" , type="csv2" , path=pf2 ,
# row.names=FALSE , na ="" , suffix=systime()[5],
# index = TRUE , systime = TRUE )
#
# # save data in sav format
# save.data( dat , filename="ma02data" , type="sav" , path=pf2 )
#
# # save data file in different formats
# types <- c("Rdata" , "csv2" , "sav")
# sapply( types , FUN = function(type){
# save.data( dat , filename="ma02data" , type= type , path=pf2 ,
# suffix = systime()[3] , row.names=TRUE )
# } )
#
# # save data frame in multiple file formats (sav, table and csv2)
# save.data( dat , filename="ma03data" , type= c("sav","table","csv2") , path=pf2 ,
# suffix = systime()[7] )
# ## End(Not run)
Run the code above in your browser using DataLab