# NOT RUN {
files <- paste0(system.file(package="hadron"), "/extdata/outprcvn.dddd.00.0000")
X <- readcmifiles(files, skip=0,
colClasses=c("integer", "integer","integer","numeric","numeric"))
Y <- extract.obs(X)
Y
# }
Run the code above in your browser using DataLab