R/makeprior.R

In MoisesExpositoAlonso/selectioncorrelatedgenotypes: Selection on correlated genotypes

makeprior <- function(num){
prior = list(R = list(V = 1, n = 0, fix = 1), G = list(G1 = list(V = 1, n = 1),
    G2 = list(V = 1, n = 1), G3 = list(V = 1, n = 1), G4 = list(V = 1, n = 1),
    G5 = list(V = 1, n = 1)))
return(prior)
}