# MakeDataPBE.R
# use: on the linux command line:
# $ Rscript MakeDataPBE.R

# read data into a data frame
ds<-as.vector(unlist(read.table("../../../pbe400/s32/pol/eps.dat",header=TRUE)))
avg<-signif(mean(ds), digits = 5)
write(paste("# PBE400 eps_inf Average ",avg),"PBE400.dat")
write(ds,file="PBE400.dat",ncolumns=1,append=TRUE)