a little simplier:

apply(do.call("rbind",lapply(Theoph,is.na)),2,any)

or

!complete.cases(Theoph)

On 6/8/07, Tim Bergsma <timb@metrumrg.com> wrote:
>
> Suppose I have a list of logicals, such as returned by lapply:
>
> Theoph$Dose[1] <- NA
> Theoph$Time[2] <- NA
> Theoph$conc[3] <- NA
> lapply(Theoph,is.na)
>
> Is there a direct way to execute logical "or" across all vectors?  The
> following gives the desired result, but seems unnecessarily complex.
>
> as.logical(apply(do.call("rbind",lapply(Theoph,is.na)),2,"sum"))
>
> Regards,
>
> Tim
>
> ______________________________________________
> 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
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem you are trying to solve?

	[[alternative HTML version deleted]]

