Dear Javad,

Perhaps you were looking to read the 
table in Air.txt (is this Fortran 
format?) into R? 

        b <- readLines("Air.txt")  # The text MIME attachment w/Mailman footer 
...
        b <- b[1:(which(b=="")-1)]  # Remove the odd Mailman footer (at end of 
df)
        idx <- max(grep("^\\*", b))+1  # Start of df after header uline
        header <- tolower(strsplit(gsub("  +", "_", gsub("\\*", "", b[idx-2])), 
"_")[[1]])
        b <- read.table(text=b[-(1:idx)], header=F)
        colnames(b) <- header[header!=""]
        b <- b[,sapply(b, \(i) length(unique(i)))>1]  # Remove constant cols

str(b)

        'data.frame':   31324 obs. of  6 variables:
         $ x           : num  583500 584000 584500 585000 585500 ...
         $ y           : num  3018700 3018700 3018700 3018700 3018700 ...
         $ average conc: num  32.8 33.1 33.4 33.5 33.6 ...
         $ zelev       : num  0 0 0 0 0 0 0 0 0 0 ...
         $ zhill       : num  0 0 0 0 0 0 0 0 0 0 ...
         $ date(conc)  : int  16101706 16101706 16101706 16101706 16101706 ...

Best,
Rasmus

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to