Skip to content

Read text file in R

1 message · arun

arun
# 
Hi,
Try this:
con<-file("Routallnew.txt")
?Lines1<- readLines(con)
?close(con)
indx<-rep(rep(c(TRUE,FALSE),each=2),24)
Lines2<-Lines1[!grepl("[A-Za-z]",Lines1)]
res<-read.table(text=paste(gsub("^\\s+","",Lines2[indx]),gsub("^\\s+","",Lines2[!indx])),sep="",header=FALSE)
nm1<-unlist(strsplit(gsub("^ +","",paste(Lines1[grepl("[A-Za-z]",Lines1)][1:2],collapse=" "))," "))
colnames(res)<- nm1[nm1!=""]
head(res)
#? m1 n1? m? n cterm1_P0L cterm1_P0H? c11? c12?? c1?? c2 alpha beta?? T_error? N
#1 13? 5 17? 9? 0.7851203? 0.6689925 0.03 0.03 0.15 0.15?? 0.1? 0.2 0.3669373 26
#2 13? 5 17? 9? 0.7851203? 0.6689925 0.03 0.03 0.15 0.15?? 0.1? 0.2 0.3669373 26
#3? 9? 5 13 11? 0.6302494? 0.4876750 0.03 0.03 0.15 0.20?? 0.1? 0.2 0.4137296 24
#4? 9? 5 13 11? 0.6302494? 0.4876750 0.03 0.03 0.15 0.20?? 0.1? 0.2 0.4137296 24
#5? 9? 5 13 11? 0.6302494? 0.4876750 0.03 0.03 0.15 0.25?? 0.1? 0.2 0.4782406 24
#6? 9? 5 13 11? 0.6302494? 0.4876750 0.03 0.03 0.15 0.25?? 0.1? 0.2 0.4782406 24
#??????? EN???????? BH??????? BL???????? AH???????? AL
#1 20.18355 0.07718537 0.1865207 0.08079875 0.02243240
#2 20.18355 0.07718537 0.1865207 0.08079875 0.02243240
#3 18.55295 0.08482219 0.1996013 0.09569044 0.03361565
#4 18.55295 0.08482219 0.1996013 0.09569044 0.03361565
#5 18.55295 0.19596330 0.1996013 0.04906038 0.03361565
#6 18.55295 0.19596330 0.1996013 0.04906038 0.03361565

A.K.