fert.t: fert.t

Usage Arguments Examples

Usage

1
fert.t1(cod.sp, n.propag, fun = mean)

Arguments

cod.sp
n.propag
fun

Examples

 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)
  }

adalardo/neutraPack documentation built on May 10, 2019, 5:13 a.m.