Problem 1: Sire Model
Use the following dataset to predict breeding values using a sire model. The dataset is available from
https://charlotte-ngs.github.io/asmss2022/data/asm_ped_sim_data.csv
Hints
- The variance component \(\sigma_s^2\) of the sire effect can be assumed to be \(2.25\).
- The variance component \(\sigma_e^2\) of the random resiudals is \(36\).
- Sex is modelled as a fixed effect.
- The sire pedigree relationship can be computed using the
pedigreemm
package.
Your Solution
Read the data
Compute the inverse sire relationship matrix
Setup the mixed model equations
Solve mixed model equations
Problem 2: Animal Model
Use the same dataset as in Problem 1 to predict breeding values, but use an animal model instead of a sire model. The dataset is available from
https://charlotte-ngs.github.io/asmss2022/data/asm_ped_sim_data.csv
Hints
- The variance component \(\sigma_u^2\) of the breeding value can be assumed to be \(9\).
- The variance component \(\sigma_e^2\) of the random resiudals is \(36\).
- Sex is modelled as a fixed effect.
- The numerator relationship matrix can be computed using the
pedigreemm
package.
Your Solution
Read the data
Compute the inverse sire relationship matrix
Setup the mixed model equations
Solve mixed model equations
Problem 3: Model Comparison
Compare the order of the predicted breeding values for the sires from the sire model and from the animal model.
Your Solution
- Compare both ordered vectors of predicted breeding values
Latest Changes: 2022-05-23 04:55:27 (pvr)
LS0tCnRpdGxlOiBBcHBsaWVkIFN0YXRpc3RpY2FsIE1ldGhvZHMgLSBOb3RlYm9vayAxMAphdXRob3I6IFBldGVyIHZvbiBSb2hyCmRhdGU6ICcyMDIyLTA1LTE2JwpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKcGFyYW1zOgogIGRvY3R5cGU6CiAgICBsYWJlbDogRG9jdW1lbnQgVHlwZQogICAgdmFsdWU6IHNvbHV0aW9uCiAgICBjaG9pY2VzOgogICAgLSBleGVyY2lzZQogICAgLSBzb2x1dGlvbgogICAgLSBub3RlYm9vawogIGlzb25saW5lOgogICAgbGFiZWw6IE9ubGluZSAoeS9uKQogICAgdmFsdWU6IHRydWUKICAgIGNob2ljZXM6CiAgICAtIHRydWUKICAgIC0gZmFsc2UKLS0tCgoKCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpCmBgYAoKCgojIyBQcm9ibGVtIDE6IFNpcmUgTW9kZWwKYGBge3IgZXgxMHAwMS1zZXR1cCwgZWNobz1GQUxTRX0Kc19leDEwX3AwMV9kYXRhX3BhdGggPC0gImh0dHBzOi8vY2hhcmxvdHRlLW5ncy5naXRodWIuaW8vYXNtc3MyMDIyL2RhdGEvYXNtX3BlZF9zaW1fZGF0YS5jc3YiCmlmICghcGFyYW1zJGlzb25saW5lKQogIHNfZXgxMF9wMDFfZGF0YV9wYXRoIDwtIGZpbGUucGF0aChoZXJlOjpoZXJlKCksICJkb2NzIiwgImRhdGEiLCAiYXNtX3BlZF9zaW1fZGF0YS5jc3YiKQoKc2lnbWFfdTIgPC0gOQpzaWdtYV9zMiA8LSBzaWdtYV91MiAvIDQKc2lnbWFfZTIgPC0gMzYKYGBgCgpVc2UgdGhlIGZvbGxvd2luZyBkYXRhc2V0IHRvIHByZWRpY3QgYnJlZWRpbmcgdmFsdWVzIHVzaW5nIGEgc2lyZSBtb2RlbC4gVGhlIGRhdGFzZXQgaXMgYXZhaWxhYmxlIGZyb20KCmBgYHtyLCBlY2hvPUZBTFNFfQpjYXQoc19leDEwX3AwMV9kYXRhX3BhdGgsICJcbiIpCmBgYAoKIyMgSGludHMKCiogVGhlIHZhcmlhbmNlIGNvbXBvbmVudCAkXHNpZ21hX3NeMiQgb2YgdGhlIHNpcmUgZWZmZWN0IGNhbiBiZSBhc3N1bWVkIHRvIGJlICAkYHIgc2lnbWFfczJgJC4KKiBUaGUgdmFyaWFuY2UgY29tcG9uZW50ICRcc2lnbWFfZV4yJCBvZiB0aGUgcmFuZG9tIHJlc2l1ZGFscyBpcyAkYHIgc2lnbWFfZTJgJC4KKiBTZXggaXMgbW9kZWxsZWQgYXMgYSBmaXhlZCBlZmZlY3QuCiogVGhlIHNpcmUgcGVkaWdyZWUgcmVsYXRpb25zaGlwIGNhbiBiZSBjb21wdXRlZCB1c2luZyB0aGUgYHBlZGlncmVlbW1gIHBhY2thZ2UuCgoKCiMjIyBZb3VyIFNvbHV0aW9uCgoqIFJlYWQgdGhlIGRhdGEKCiogQ29tcHV0ZSB0aGUgaW52ZXJzZSBzaXJlIHJlbGF0aW9uc2hpcCBtYXRyaXgKCiogU2V0dXAgdGhlIG1peGVkIG1vZGVsIGVxdWF0aW9ucwoKKiBTb2x2ZSBtaXhlZCBtb2RlbCBlcXVhdGlvbnMKCgoKCgojIyBQcm9ibGVtIDI6IEFuaW1hbCBNb2RlbApgYGB7ciBleDEwcDAyLXNldHVwLCBlY2hvPUZBTFNFfQpzX2V4MTBfcDAyX2RhdGFfcGF0aCA8LSAiaHR0cHM6Ly9jaGFybG90dGUtbmdzLmdpdGh1Yi5pby9hc21zczIwMjIvZGF0YS9hc21fcGVkX3NpbV9kYXRhLmNzdiIKaWYgKCFwYXJhbXMkaXNvbmxpbmUpCiAgc19leDEwX3AwMl9kYXRhX3BhdGggPC0gZmlsZS5wYXRoKGhlcmU6OmhlcmUoKSwgImRvY3MiLCAiZGF0YSIsICJhc21fcGVkX3NpbV9kYXRhLmNzdiIpCgpzaWdtYV91MiA8LSA5CnNpZ21hX3MyIDwtIHNpZ21hX3UyIC8gNApzaWdtYV9lMiA8LSAzNgpgYGAKClVzZSB0aGUgc2FtZSBkYXRhc2V0IGFzIGluIFByb2JsZW0gMSB0byBwcmVkaWN0IGJyZWVkaW5nIHZhbHVlcywgYnV0IHVzZSBhbiBhbmltYWwgbW9kZWwgaW5zdGVhZCBvZiBhIHNpcmUgbW9kZWwuIFRoZSBkYXRhc2V0IGlzIGF2YWlsYWJsZSBmcm9tCgpgYGB7ciwgZWNobz1GQUxTRX0KY2F0KHNfZXgxMF9wMDJfZGF0YV9wYXRoLCAiXG4iKQpgYGAKCiMjIEhpbnRzCgoqIFRoZSB2YXJpYW5jZSBjb21wb25lbnQgJFxzaWdtYV91XjIkIG9mIHRoZSBicmVlZGluZyB2YWx1ZSBjYW4gYmUgYXNzdW1lZCB0byBiZSAgJGByIHNpZ21hX3UyYCQuCiogVGhlIHZhcmlhbmNlIGNvbXBvbmVudCAkXHNpZ21hX2VeMiQgb2YgdGhlIHJhbmRvbSByZXNpdWRhbHMgaXMgJGByIHNpZ21hX2UyYCQuCiogU2V4IGlzIG1vZGVsbGVkIGFzIGEgZml4ZWQgZWZmZWN0LgoqIFRoZSBudW1lcmF0b3IgcmVsYXRpb25zaGlwIG1hdHJpeCBjYW4gYmUgY29tcHV0ZWQgdXNpbmcgdGhlIGBwZWRpZ3JlZW1tYCBwYWNrYWdlLgoKCiMjIyBZb3VyIFNvbHV0aW9uCgoqIFJlYWQgdGhlIGRhdGEKCiogQ29tcHV0ZSB0aGUgaW52ZXJzZSBzaXJlIHJlbGF0aW9uc2hpcCBtYXRyaXgKCiogU2V0dXAgdGhlIG1peGVkIG1vZGVsIGVxdWF0aW9ucwoKKiBTb2x2ZSBtaXhlZCBtb2RlbCBlcXVhdGlvbnMKCgoKCgojIyBQcm9ibGVtIDM6IE1vZGVsIENvbXBhcmlzb24KQ29tcGFyZSB0aGUgb3JkZXIgb2YgdGhlIHByZWRpY3RlZCBicmVlZGluZyB2YWx1ZXMgZm9yIHRoZSBzaXJlcyBmcm9tIHRoZSBzaXJlIG1vZGVsIGFuZCBmcm9tIHRoZSBhbmltYWwgbW9kZWwuIAoKIyMjIFlvdXIgU29sdXRpb24KCiogQ29tcGFyZSBib3RoIG9yZGVyZWQgdmVjdG9ycyBvZiBwcmVkaWN0ZWQgYnJlZWRpbmcgdmFsdWVzCgoKCiAKCgpgYGB7ciwgZWNobz1GQUxTRSwgcmVzdWx0cz0nYXNpcyd9CmNhdCgnXG4tLS1cblxuIF9MYXRlc3QgQ2hhbmdlczogJywgZm9ybWF0KFN5cy50aW1lKCksICclWS0lbS0lZCAlSDolTTolUycpLCAnICgnLCBTeXMuaW5mbygpWyd1c2VyJ10sICcpX1xuJywgc2VwID0gJycpCmBgYAogCg==