Thanks so much, David!

I will try.


On Thu, Feb 9, 2012 at 3:04 PM, David Winsemius <dwinsemius@comcast.net>wrote:

>
> On Feb 9, 2012, at 5:01 PM, Changbin Du wrote:
>
>  test<-c("20120111_181515_001_**CCL54D_A01_S02_APL932_PL11_DL_**
>> 20120111.CEL",
>> "20120111_181516_002_CCL54D_**A02_S08_APL932_PL11_DL_**20120111.CEL")
>>
>>  test
>>>
>> [1] "20120111_181515_001_CCL54D_**A01_S02_APL932_PL11_DL_**20120111.CEL"
>> [2] "20120111_181516_002_CCL54D_**A02_S08_APL932_PL11_DL_**20120111.CEL"
>>
>> fields1<-strsplit(test, "_")
>>
>>  fields1
>>>
>> [[1]]
>> [1] "20120111"     "181515"       "001"          "CCL54D"
>> "A01"
>> [6] "S02"          "APL932"       "PL11"         "DL"
>> "20120111.CEL"
>>
>> [[2]]
>> [1] "20120111"     "181516"       "002"          "CCL54D"
>> "A02"
>> [6] "S08"          "APL932"       "PL11"         "DL"
>> "20120111.CEL"
>>
>>  *releaseqc<-sapply(fields1, "[",4)*
>>>
>>
>> releaseqc
>> [1] "CCL54D" "CCL54D"
>>
>> _____________
>> Dear R community,
>>
>> I used the *releaseqc<-sapply(fields1, "[",4)* to get the 4th elements
>> from
>>
>> each sub-list within fields1 list.
>>
>> How do I get the first non-digital or first character element from each
>> list?
>>
>
> Perhaps something like:
>
>  mapply ( "[", fields1, sapply(fields1, function(x) { which.min( is.na(
> is.numeric(fields1))) }
>
> There are certainly other  grep()-ish ways of approaching this.
>
> --
>
> David Winsemius, MD
> West Hartford, CT
>
>


-- 
Sincerely,
Changbin
--

Changbin Du
Data Analysis Group, Affymetrix Inc
6550 Emeryville, CA, 94608

	[[alternative HTML version deleted]]

