Not tested since you did not provide any data:
results <- lapply(split(df, df$id), function(.data){
.which <- which(.data$censor == 1)[1] # get first one
if (length(.which) > 0) return(.data[.which,])
else return(.data[nrow(.data),])
})
On Tue, Nov 25, 2008 at 2:45 AM, gallon li <[EMAIL PROTECTED]> wrote:
> ---------- Forwarded message ----------
> From: gallon li <[EMAIL PROTECTED]>
> Date: Tue, Nov 25, 2008 at 1:58 PM
> Subject: Re: [R] select a subset
> To: Stefan Grosse <[EMAIL PROTECTED]>
>
>
> I am sorry but my question is not solvable by using subset alone.
>
> You see, the selection criterion is different for different id. This may not
> be easily specified in the subset function.
>
> Yes, I did think about this function before but couldn't find ways to use
> it.
>
> On Mon, Nov 24, 2008 at 8:42 PM, Stefan Grosse <[EMAIL PROTECTED]>wrote:
>
>> gallon li schrieb:
>> > for id 1, i want to select the last row since all censor indicator is 0;
>> for
>> > id 2, i want to select the row where censor ==1; for id 3, i also want to
>> > select the row where censor==1. So if there is a 1 for censor, then I
>> want
>> > to select such a row, otherwise I want to select the last obs. for this
>> id.
>> > I am wondering if there is a quick way to solve this?
>> >
>> ?subset
>>
>> and please do read an introductionary text....
>>
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
>
--
Jim Holtman
Cincinnati, OH
+1 513 646 9390
What is the problem that you are trying to solve?
______________________________________________
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.
