[R] Reading mixed tables

[Hesen Peng]

That's a very good idea! Thanks a lot.

On Sat, Nov 29, 2008 at 9:13 PM, Gabor Grothendieck
<ggrothendieck at gmail.com> wrote:
> Try this.  First we read it in using fill = TRUE so that
> lines with one number get filled out with NAs.  The first
> line is T so assign first cell to T and create DF0 which
> does not have that line.  Then split the data into a list
> of data frames starting each group at the line with the
> NA in column 3.  Finally lapply over that list removing
> the first row (which is the row that contains NAs).
>
> Lines <- "3
> 3
> 10000 0 0
> 0 10000 0
> 0 0 10000
> 3
> 5000 0 0
> 0 2000 0
> 0 0 4000
> 5
> 0 1250 0
> 3000 0 3000
> 1000 1000 1000
> 2000 1000 2000
> 1000 3000 2000"
>
> DF <- read.table(textConnection(Lines), fill = TRUE)
> T <- DF[1,1]
> DF0 <- DF[-1,]
> DFs <- lapply(split(DF0, cumsum(is.na(DF0[,3]))), na.omit)
> DFs
>
>
> On Sat, Nov 29, 2008 at 6:51 PM, Hesen Peng <hesen.peng at emory.edu> wrote:
>> Dear R buddies,
>>
>> This weekend I became interested in solving Google Code Jam problems
>> using R. I guess R may work very well in this kind of contests but the
>> input of file has been a problem for me. Take this case for example
>> (http://code.google.com/codejam/contest/dashboard?c=agdjb2RlamFtchALEghjb250ZXN0cxjRzBQM),
>> the files are usually of the form:
>>
>> A(number of lines for group 1)
>> a11 a12 a13
>> a21 a22 a23
>> ...
>> B(number of lines for group 2)
>> b11 b12 b13
>> b21 b22 b23
>> ...
>>
>> I guess SAS may work pretty well in this kind of situation with data
>> step. But I don't know how to handle them using R. Any suggestions?
>> Thanks a lot.
>>
>> Best wishes,
>> --
>> 彭河森 Hesen Peng
>> http://hesen.peng.googlepages.com/
>> ______________________________________________
>> R-help at 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.
>>
>



-- 
彭河森 Hesen Peng
http://hesen.peng.googlepages.com/