fullfact (version 1.0)

JackGlmer: Jackknife components for non-normal data

Description

Extracts additive genetic, non-additive genetic, and maternal variance components from a linear mixed-effect model using the lmer function of the lme4 package. Model random effects are dam, sire, and dam by sire.

Usage

JackGlmer(observ, dam, sire, response, fam_link, quasi = F, size = 1, first = NULL)

Arguments

observ

Data frame of observed data.

dam

Column name containing dam(female) parent identity information.

sire

Column name containing sire(male) parent identity information.

response

Column name containing the offspring (response) phenotype values.

fam_link

The family and link in family(link) format. Supported options are binomial(logit), binomial(probit), poisson(log), and poisson (sqrt).

quasi

Incorporate overdispersion or quasi-error structure.

size

Default is 1 for delete-one jackknife resampling. If size > 1, delete-d jackknife resampling occurs removing a block d equal to size.

first

Number of initial sub-samples to run. Useful for examing if there is variation among sub-samples before jackknife resampling the entire data set. There can be little varitation for delete-one jackknife resampling with large data sets, and delete-d jackknife resampling should be considered.

Value

A data frame with columns containing the raw variance components for dam, sire, dam by sire, residual, total, additive genetic, non-additive genetic, and maternal. The number of rows in the data frame matches the total number of observations (N) for delete-one jackknife resampling or M groups for delete-d jackknife resampling to the lowest integer. Each row represents a deleted single observation or deleted d observations group.

Details

Uses delete-one jackknife resampling (Efron & Tibshirani 1993, p. 141-145). For the option of delete-d jackknife resampling, the rows of the observed data frame are shuffled and a block of observations of size d is deleted sequentially. Laplace approximation parameter estimation is used, which is a true likelihood method (Bolker et al. 2009). For the overdispersion option, an observation-level random effect is added to the model (Atkins et al. 2013). Extracts the dam, sire, dam, and dam by sire variance components. The residual variance component for the fam_links are described by Nakagawa and Schielzeth (2010, 2013). Calculates the total variance component. Calculates the additive genetic, non-additive genetic, and maternal variance components (see Lynch and Walsh 1998, p. 603).

References

Atkins DC, Baldwin SA, Zheng C, Gallop RJ, Neighbors C. 2013. A tutorial on count regression and zero-altered count models for longitudinal substance use data. Psychology of Addictive Behaviors 27(1): 166-177. DOI: 10.1037/a0029508

Bolker BM, Brooks ME, Clark CJ, Geange SW, Poulsen JR, Stevens MHH, White J-SS. 2009. Generalized linear mixed models: a practical guide for ecology and evolution. Trends in Ecology and Evolution 24(3): 127-135. DOI: 10.1016/j.tree.2008.10.008

Efron B, Tibshirani R. 1993. An introduction to the Bootstrap. Chapman and Hall, New York.

Lynch M, Walsh B. 1998. Genetics and Analysis of Quantitative Traits. Sinauer Associates, Massachusetts.

Nakagawa S, Schielzeth H. 2010. Repeatability for Gaussian and non-Gaussian data: a practical guide for biologists. Biological Reviews 85(4): 935-956. DOI: 10.1111/j.1469-185X.2010.00141.x

Nakagawa S, Schielzeth H. 2013. A general and simple method for obtaining R2 from generalized linear mixed-effects models. Methods in Ecology and Evolution 4(2): 133-142. DOI: 10.1111/j.2041-210x.2012.00261.x

See Also

JackGlmer2, JackGlmer3

Examples

data(chinook_survival) #Chinook salmon offspring survival
## Convert replicate-level recorded data to individual-level (binary) data
chinook_survival2<- buildBinary(dat=chinook_survival,copy=c(1:6,9),one="alive",zero="dead")

#Delete-one
## Not run: survival_jack1<- JackGlmer(observ=chinook_survival2,dam="dam",sire="sire",
# response="status",fam_link=binomial(logit))## End(Not run)

#Delete-d, d=36
## Not run: survival_jack1.2<- JackGlmer(observ=chinook_survival2,dam="dam",sire="sire",
# response="status",fam_link=binomial(logit),size=36)## End(Not run)