if (FALSE) {
DB <- makeDB('/media/disk-1/TUNG_2010', "2010",
kind=2,Iendian=1, BIGLONG=FALSE )
sw <- which(DB$yr>2011)
########## remove the bad lines from the DB
DDB <- editDB(DB, -sw)
infoDB(DB)
############# to change the path names if the data
## moves to a different server:
###for example:
###
path1<-"/data/wadati/soju"
path2<-"/mnt"
newDB <- pathDB(DB, path1, path2 )
}
Run the code above in your browser using DataLab