`Sapply`

is equivalent to `sapply`

, except
that it preserves the dimension and dimension names of the
argument `X`

. It also preserves the dimension of
results of the function `FUN`

.
It is intended for application to results e.g.
of a call to `by`

. `Lapply`

is an analog
to `lapply`

insofar as it does not try to simplify
the resulting `list`

of results of `FUN`

.

1 2 3 |

`X` |
a vector or list appropriate to a call to |

`FUN` |
a function. |

`...` |
optional arguments to |

`simplify` |
a logical value; should the result be simplified to a vector or matrix if possible? |

`USE.NAMES` |
logical; if |

If `FUN`

returns a scalar, then the result has the same dimension
as `X`

, otherwise the dimension of the result is enhanced relative
to `X`

.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ```
berkeley <- Aggregate(Table(Admit,Freq)~.,data=UCBAdmissions)
berktest1 <- By(~Dept+Gender,
glm(cbind(Admitted,Rejected)~1,family="binomial"),
data=berkeley)
berktest2 <- By(~Dept,
glm(cbind(Admitted,Rejected)~Gender,family="binomial"),
data=berkeley)
sapply(berktest1,coef)
Sapply(berktest1,coef)
sapply(berktest1,function(x)drop(coef(summary(x))))
Sapply(berktest1,function(x)drop(coef(summary(x))))
sapply(berktest2,coef)
Sapply(berktest2,coef)
sapply(berktest2,function(x)coef(summary(x)))
Sapply(berktest2,function(x)coef(summary(x)))
``` |

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

All documentation is copyright its authors; we didn't write any of that.