res[res$EN==min(res$EN),] # m1 n1 m n cterm1_P0L cterm1_P0H c11 c12 c1 c2 alpha beta T_error #25 9 4 13 12 0.6302494 0.7565041 0.03 0.07 0.15 0.15 0.1 0.2 0.4403712 #27 9 4 13 12 0.6302494 0.7565041 0.03 0.07 0.15 0.20 0.1 0.2 0.4473437 #33 9 4 13 12 0.6302494 0.7565041 0.05 0.07 0.15 0.15 0.1 0.2 0.4403712 #35 9 4 13 12 0.6302494 0.7565041 0.05 0.07 0.15 0.20 0.1 0.2 0.4473437 N EN BH BL AH AL #25 25 16.42697 0.1201138 0.1933632 0.09321455 0.03367957 #27 25 16.42697 0.1553998 0.1933632 0.06490110 0.03367957 #33 25 16.42697 0.1201138 0.1933632 0.09321455 0.03367957 #35 25 16.42697 0.1553998 0.1933632 0.06490110 0.03367957 A.K.
________________________________ From: Joanna Zhang <zjoanna2...@gmail.com> To: arun <smartpink...@yahoo.com> Sent: Monday, March 25, 2013 12:13 PM Subject: Re: Read text file in R Great! When I tried to extract the min of EN, it has an error; opt<-con[con$EN==min(con$EN),] opt Error in con$EN : $ operator is invalid for atomic vectors On Mon, Mar 25, 2013 at 11:05 AM, arun <smartpink...@yahoo.com> wrote: 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. > > > > > > >________________________________ >From: Joanna Zhang <zjoanna2...@gmail.com> >To: arun <smartpink...@yahoo.com> >Sent: Monday, March 25, 2013 11:19 AM >Subject: Read text file in R > > > >Hi Arun, > >I just sent you a text file via R, but I think it is being held for moderator >approval. I attached the final output file here, could you help me read it in >R when you have time? > ______________________________________________ R-help@r-project.org mailing list 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.