# NOT RUN {
freqMatrix <- matrix(0, nrow=2, ncol=100)
freqMatrix[2,26:100] <- (26:100)/100
freqMatrix[1,] <- 1-freqMatrix[2,]
plotevolQR(getwd(), nIncr=2, trait=1, freqMatrix, D=25, nTS=100,nYears=10,nTSpY=10)
# }
Run the code above in your browser using DataLab