s <-
DiallelSim(
Parents = 6
, Method = 1
, Rep = 4
, Env = 1
, Mean = 100
, gca = 5
, sca = 3
, rec = 1
, gcaEnv = 0
, scaEnv = 0
, EnvSD = 0
, Block = 2
, Error = 4
, seed = 123
)
fs <-
Griffing(
y = y
, Rep = Rep
, Cross1 = Cross1
, Cross2 = Cross2
, data = s
, Method = 1
, Model = 1
, Reciprocal = c("combined", "split")[1]
)
round(x = cbind(true = attr(x = s, which = "truth")$gca, estimated = fs$GCA), digits = 2) true estimated
1 -5.04 -5.01
2 -3.39 -3.14
3 5.56 6.09
4 -1.88 -1.58
5 -1.59 -2.87
6 6.34 6.51