# NOT RUN {
## running toy example
file <- paste0(system.file("extdata", package = "hadron"), "/C2_pi0.dat")
X <- readbinarydisc(files=file, Time=64, obs=0)
X$cf
## more realistic example
# }
# NOT RUN {
files <- character()
# }
# NOT RUN {
for(i in seq(600,1744,8))
# }
# NOT RUN {
files <- c(files, "C2_dis_u_conf", sprintf("%.04d", i), ".dat", sep="")
# }
# NOT RUN {
cf <- readbinarydisc(files, obs=4, excludelist=c("C2_pi0_conf0632.dat"))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab