These are the R functions I have written along the way of studying Mrode (2005) in the grad school.
Each of the R script is easily dowonloaded by using wget command
wget http://www.morotalab.org/Mrode2005/relmat/createA.txt
download.file() function in R
download.file(url="http://www.morotalab.org/Mrode2005/relmat/createA.txt", destfile="~/creatA.txt")or
source() function in R.
source("http://www.morotalab.org/Mrode2005/relmat/createA.txt")