# NOT RUN {
#Extract the ECA&D data file from the example data folder
path2inptfl<-system.file("extdata", "CC_SOUID132727.txt", package = "INQC")
#Read the data file
head<-readheader(input=path2inptfl)
# }
Run the code above in your browser using DataLab