Hi,
con<-file("Rout1112.text")
?Lines1<- readLines(con)
?close(con)
?indx<-rep(rep(c(TRUE,FALSE),each=2),2)
?Lines2<-Lines1[!grepl("[A-Za-z]",Lines1)]
res<-read.table(text=paste(gsub("^\\d+\\s+","",Lines2[indx]),gsub("^\\d+\\s+","",Lines2[!indx])),sep="",header=FALSE)
?nm1<-unlist(strsplit(gsub("^ +","",paste(Lines1[grepl("[A-Za-z]",Lines1)][1:2],collapse=" "))," "))
colnames(res)<- nm1[nm1!=""]
res
#m1 n1? m n cterm1_P0L cterm1_P0H? c11? c12?? c1?? c2 alpha beta?? T_error? N
#1? 4? 5 11 9? 0.8145062? 0.6302494 0.03 0.03 0.15 0.15?? 0.1? 0.4 0.6339515 20
#2? 7? 4 11 8? 0.6983373? 0.0000000 0.03 0.03 0.15 0.15?? 0.1? 0.4 0.4899431 19
#3? 4? 5 10 9? 0.8145062? 0.6302494 0.03 0.03 0.15 0.20?? 0.1? 0.4 0.6831988 19
#4? 5? 4? 9 8? 0.7737809? 0.0000000 0.03 0.03 0.15 0.20?? 0.1? 0.4 0.6458095 17
?# ????? EN???????? BH??????? BL???????? AH???????? AL
#1 11.77746 0.12159579 0.3846999 0.09567271 0.03198315
#2 16.20665 0.09819012 0.2550532 0.09581478 0.04088503
#3 11.59196 0.15166360 0.3943098 0.08405337 0.05317206
#4 13.90488 0.14031630 0.3624458 0.08268336 0.06036395
A.K.
From: Joanna Zhang <zjoanna2013 at gmail.com>
To: arun <smartpink111 at yahoo.com>
Sent: Thursday, March 21, 2013 3:03 PM
Subject: Re: [R] cumulative sum by group and under some criteria
To: arun <smartpink111 at yahoo.com>
Sent: Thursday, March 21, 2013 3:03 PM
Subject: Re: [R] cumulative sum by group and under some criteria
Hi, I used a computer cluster and output the file attached here, I need to read the file in R. I tried to use read.table, but it seems that the format is not recognized by R, could you help?