Function to calculate proportion of phenotypic variance increase due to AC covariance

gnome_effect(a, c, e, g, b, varA = 1, varC = 1, varE = 1)

Arguments

a

Additive genetic path coefficient

c

Shared environment path coefficient

e

Non-shared environmental path coefficient

g

Path coefficient cultural transmission

b

Path coefficient sibling interaction

varA

Additive genetic variance

varC

Shared environment variance

varE

Non-shared environmental variance

Value

Proportion of phenotypic variance increase due to AC covariance

Examples

gnome_effect(a = sqrt(.4), c = sqrt(.3), e = sqrt(.3), g = 0, b = sqrt(.05))
#> $mz
#> [1] 0.3328427
#> 
#> $dz
#> [1] 0.1914214
#> 
gnome_effect(a = sqrt(.4), c = sqrt(.3), e = sqrt(.3), g = sqrt(.05), b = 0)
#> $mz
#> [1] 0.3828427
#> 
#> $dz
#> [1] 0.3828427
#> 
gnome_effect(a = sqrt(.4), c = sqrt(.3), e = sqrt(.3), g = sqrt(.05), b = sqrt(.05))
#> $mz
#> [1] 0.8156854
#> 
#> $dz
#> [1] 0.6742641
#>