library(ammiBayes)
data(ammiData)
Env <- factor(ammiData$amb)
Rep <- factor(ammiData$rep)
Gen <- factor(ammiData$gen)
Y <- ammiData$prod
model <- ammiBayes(Y=Y, Gen=Gen, Env=Env, Rep=Rep, iter=10, burn=1, jump=2, chains=2)
gen.effects(model)
Run the code above in your browser using DataLab