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 <[EM
-- 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 fo
2 matches
Mail list logo
