## Not run:
# #############################################################################
# # EXAMPLE 1: Write and read a file in fixed width format
# #############################################################################
#
# # set working directory
# path <- "P:/ARb/temp"
# setwd(path)
#
# # define a data frame
# set.seed(9876)
# dat <- data.frame( "x" = seq( 1 , 21 , len=5) , "y" = stats::runif( 5 ) ,
# "z" = stats::rnorm( 5 ) )
#
# # save data frame in fixed width format
# format.full <- c(6 , 6 , 8 )
# format.round <- c( 0 , 2 , 3 )
# write.fwf2( dat , format.full=format.full, format.round=format.round ,
# file = "testdata" )
#
# # read the data
# dat1 <- read.fwf2( file = "testdata.dat" , format.full = c(6,6,8) ,
# variables = c("x","y","z") )
# # check differences between data frames
# dat - dat1
# ## End(Not run)
Run the code above in your browser using DataLab