1 | fert.t1(cod.sp, n.propag, fun = mean)
|
cod.sp |
|
n.propag |
|
fun |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (cod.sp, n.propag, fun = mean)
{
especie <- unique(cod.sp[, 1])
sp.level <- factor(cod.sp, levels = cod.sp)
t.a <- function(x) {
tapply(n.propag[, x], factor(cod.sp[, x], levels = especie),
fun)
}
res <- sapply(1:ncol(n.propag), t.a)
colnames(res) <- colnames(n.propag)
rownames(res) <- paste("sp", especie, sep = "")
return(res)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.