On 3/15/06, Sebastian Luque <[EMAIL PROTECTED]> wrote:
> Sebastian Luque <[EMAIL PROTECTED]> wrote:
>
> "Gabor Grothendieck" <[EMAIL PROTECTED]> wrote:
>
> >> Is this ok or is it what you are trying to avoid:
>
> >> factor(unlist(lapply(cutYield, as.character)))
>
> > Thank you Gabor. The problem with that is what if some levels do not
> > appear in any member of cutYield?
>
> This addition to your code takes care of that, although it's a bit
> expensive:
>
> factor(unlist(lapply(cutYield, as.character)),
> levels = unique(unlist(lapply(test, levels))))
>
>
In thinking about this a bit more here is another solution which
does not disassemble and reassemble the factors and so may
be more along the lines you were looking for:
do.call("rbind", lapply(cutYield, function(x) data.frame(x = x)))$x
______________________________________________
R-help@stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
