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

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