[R] split list

[Bert Gunter]

Sorry -- that 2nd line should of course be:

 yourlist <- split( gl[!omit], ,cumsum(omit)[!omit])

-- Bert

On Thu, Mar 29, 2012 at 10:07 AM, Bert Gunter <bgunter at gene.com> wrote:
> Here's a more "minimalist" and perhaps faster approach (asit uses indexing)
>
> Let "gl" be the the vector with the gene list.
>
> omit <- gl == "batch"
> yourlist <- split( gl[omit], ,cumsum(omit)[!omit])
>
> Cheers,
> Bert
>
> On Thu, Mar 29, 2012 at 9:25 AM, Martin Morgan <mtmorgan at fhcrc.org> wrote:
>> On 03/29/2012 08:18 AM, konika chawla wrote:
>>>
>>> Hi
>>> Is there a function like splitstr, for splitting lists?
>>> I want to divide a list of gene names based on a recurring value like
>>> "batch"
>>> the list is like
>>>
>>> [1,] "AT4G25480"
>>> [2,] "AT3G20810"
>>> [3,] "AT2G46670"
>>> [4,] "AT4G27310"
>>> [5,] "batch"
>>> [6,] "AT1G04570"
>>> [7,] "AT5G62360"
>>> [8,] "AT2G31380"
>>> [9,] "AT3G54500"
>>> [10,] "AT2G36220"
>>> [11,] "batch"
>>> [12,] "AT5G06980"
>>> [13,] "AT2G46790"
>>> [14,] "AT3G55580"
>>> [15,] "AT1G73480"
>>> [16,] "AT5G54470"
>>> [17,] "AT1G07180"
>>> I want to split it in three gene lists, and remove the "batch"
>>
>>
>> Hi --
>>
>> along the lines of
>>
>>  split(v, cumsum(v == "batch"))
>>
>> where the first element of all groups except the first will be "batch", and
>> would need to be filtered.
>>
>>   Map(function(elt) if (elt[1] == "batch") elt[-1] else elt,
>>       split(v, cumsum(v == "batch")))
>>
>> Martin
>>
>>> Any ideas?
>>> Thanks
>>> Konika
>>>
>>> ______________________________________________
>>> 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.
>>
>>
>>
>> --
>> Computational Biology
>> Fred Hutchinson Cancer Research Center
>> 1100 Fairview Ave. N. PO Box 19024 Seattle, WA 98109
>>
>> Location: M1-B861
>> Telephone: 206 667-2793
>>
>> ______________________________________________
>> 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.
>
>
>
> --
>
> Bert Gunter
> Genentech Nonclinical Biostatistics
>
> Internal Contact Info:
> Phone: 467-7374
> Website:
> http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm



-- 

Bert Gunter
Genentech Nonclinical Biostatistics

Internal Contact Info:
Phone: 467-7374
Website:
http://pharmadevelopment.roche.com/index/pdb/pdb-functional-groups/pdb-biostatistics/pdb-ncb-home.htm