Desire Gain Format

desireFormat(
  n_traits = 1,
  traits = paste0("trait_", 1:n_traits),
  wt = rep(1, length(traits)),
  heritability = rep(0.5, length(traits)),
  sd = rep(1, length(traits)),
  corPhen = diag(1, length(traits)),
  corGen = diag(1, length(traits))
)

Arguments

n_traits

number of traits

traits

name of the traits

wt

weights

heritability

vector with heritabilities for each trait

sd

vector with genotypic standard deviations

corPhen

matrix with phenotypic correlation

corGen

matrix with genotypic correlation

Value

data.frame with desire format

Examples

# desireFormat(n_traits = 4)