Problem 1: Interactions
Use the following dataset on Breed,
Breast Circumference and Body Weight and fit a
fixed linear effects model with Body Weight as response and
Breed and Breast Circumference as predictors
and include an interaction term between the two predictors. Compute the
expected difference in Body Weight for two animals which
differ in
Breast Circumference by $1cm$ for everyBreed`.
The dataset is available under
[1] "https://charlotte-ngs.github.io/asmss2023/data/asm_bw_flem.csv"
https://charlotte-ngs.github.io/asmss2023/data/asm_bw_flem.csv
Your Solution
- Read the data
- Fit fixed linear effects model for Body Weight using
Breed and Breast Circumference and the
interaction with function lm()
- From the solution of the
summary() of the
lm() result get the regression coefficient and the
interaction effects and compute the expected difference in
Body Weight for all three breeds.
Problem 2: Simulation
Use the following values for intercept and regression slope for
Body Weight on Breast Circumference to
simulate a dataset of size \(N\). What
is the number for \(N\) that has to be
chosen such that the regression analysis of the simulated data gives the
same result as the true regression slope.
The true values are:
- Intercept: \(-1070\)
- Regression slope: \(8.7\)
- Residual standard error: \(12\)
Hints
- Start with \(N=10\), simulate a
dataset and analyse the data with
lm()
- If the result (rounded to 1 digits after decimal point) is not the
same then double the size of the dataset, hence use, \(N=20\)
- Continue until you get close to the true value.
- Assume that the random resiudals follow a normal distribution with
mean zero and standard devation equal to \(12\)
- Take breast circumference to be normally distributed with a mean of
\(180\) and a standard deviation of
\(2.6\)
- Use a linear regression model with an intercept to model expected
body weight based on breast circumference.
Your Solution
- Start with \(N=10\), simulate a
dataset and analyse the data with
lm()
- If the result (rounded to 1 digits after decimal point) is not the
same then double the size of the dataset, hence use, \(N=20\)
- Continue until you get close to the true value.
Latest Changes: 2023-05-07 13:49:44 (pvr)
LS0tCnRpdGxlOiBBcHBsaWVkIFN0YXRpc3RpY2FsIE1ldGhvZHMgLSBOb3RlYm9vayA1CmF1dGhvcjogUGV0ZXIgdm9uIFJvaHIKZGF0ZTogJzIwMjMtMDQtMjQnCm91dHB1dDogaHRtbF9ub3RlYm9vawpwYXJhbXM6CiAgZG9jdHlwZToKICAgIGxhYmVsOiBEb2N1bWVudCBUeXBlCiAgICB2YWx1ZTogc29sdXRpb24KICAgIGNob2ljZXM6CiAgICAtIGV4ZXJjaXNlCiAgICAtIHNvbHV0aW9uCiAgICAtIG5vdGVib29rCiAgaXNvbmxpbmU6CiAgICBsYWJlbDogT25saW5lICh5L24pCiAgICB2YWx1ZTogdHJ1ZQogICAgY2hvaWNlczoKICAgIC0gdHJ1ZQogICAgLSBmYWxzZQotLS0KCgoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkKYGBgCgoKIyMgUHJvYmxlbSAxOiBJbnRlcmFjdGlvbnMKVXNlIHRoZSBmb2xsb3dpbmcgZGF0YXNldCBvbiBgQnJlZWRgLCBgQnJlYXN0IENpcmN1bWZlcmVuY2VgIGFuZCBgQm9keSBXZWlnaHRgIGFuZCBmaXQgYSBmaXhlZCBsaW5lYXIgZWZmZWN0cyBtb2RlbCB3aXRoIGBCb2R5IFdlaWdodGAgYXMgcmVzcG9uc2UgYW5kIGBCcmVlZGAgYW5kIGBCcmVhc3QgQ2lyY3VtZmVyZW5jZWAgYXMgcHJlZGljdG9ycyBhbmQgaW5jbHVkZSBhbiBpbnRlcmFjdGlvbiB0ZXJtIGJldHdlZW4gdGhlIHR3byBwcmVkaWN0b3JzLiBDb21wdXRlIHRoZSBleHBlY3RlZCBkaWZmZXJlbmNlIGluIGBCb2R5IFdlaWdodGAgZm9yIHR3byBhbmltYWxzIHdoaWNoIGRpZmZlciBpbiBgQnJlYXN0IENpcmN1bWZlcmVuY2UgYnkgJDFjbSQgZm9yIGV2ZXJ5IGBCcmVlZGAuIAoKVGhlIGRhdGFzZXQgaXMgYXZhaWxhYmxlIHVuZGVyCgpgYGB7ciB0YmwtZXgwNS1wMDEsIGVjaG89RkFMU0V9CnNfdGJsX2V4MDVfcDAxX3BhdGggPC0gImh0dHBzOi8vY2hhcmxvdHRlLW5ncy5naXRodWIuaW8vYXNtc3MyMDIzL2RhdGEvYXNtX2J3X2ZsZW0uY3N2IgpzX3RibF9leDA1X3AwMV9wYXRoCmBgYAoKCiMjIyBZb3VyIFNvbHV0aW9uCgoqIFJlYWQgdGhlIGRhdGEKKiBGaXQgZml4ZWQgbGluZWFyIGVmZmVjdHMgbW9kZWwgZm9yIEJvZHkgV2VpZ2h0IHVzaW5nIGBCcmVlZGAgYW5kIGBCcmVhc3QgQ2lyY3VtZmVyZW5jZWAgYW5kIHRoZSBpbnRlcmFjdGlvbiB3aXRoIGZ1bmN0aW9uIGBsbSgpYAoqIEZyb20gdGhlIHNvbHV0aW9uIG9mIHRoZSBgc3VtbWFyeSgpYCBvZiB0aGUgYGxtKClgIHJlc3VsdCBnZXQgdGhlIHJlZ3Jlc3Npb24gY29lZmZpY2llbnQgYW5kIHRoZSBpbnRlcmFjdGlvbiBlZmZlY3RzIGFuZCBjb21wdXRlIHRoZSBleHBlY3RlZCBkaWZmZXJlbmNlIGluIGBCb2R5IFdlaWdodGAgZm9yIGFsbCB0aHJlZSBicmVlZHMuIAoKCgoKCiMjIFByb2JsZW0gMjogU2ltdWxhdGlvbgpgYGB7ciwgZWNobz1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0Kbl9iX2ludGVyY2VwdCA8LSAtMTA3MApuX2Jfc2xvcGUgPC0gOC43Cm5fcmVzX3N0ZF9lcnJvciA8LSAxMgpuX25yX29icyA8LSAxMApuX3Nsb3BlX3RvbCA8LSAwLjEKCiMgdGFrZSB0aGUgdmFsdWVzIGZvciBtZWFuIGFuZCBzZCBmb3IgYmMgZnJvbSB0aGUgZGF0YXNldApzX3RibF9id19iY19icl9wYXRoIDwtICJodHRwczovL2NoYXJsb3R0ZS1uZ3MuZ2l0aHViLmlvL2FzbXNzMjAyMy9kYXRhL2FzbV9id19mbGVtLmNzdiIKdGJsX2J3X2JjX2JyIDwtIHJlYWRyOjpyZWFkX2RlbGltKHNfdGJsX2J3X2JjX2JyX3BhdGgsIGRlbGltID0gIiwiKQpuX21lYW5fYmMgPC0gcm91bmQobWVhbih0YmxfYndfYmNfYnIkYEJyZWFzdCBDaXJjdW1mZXJlbmNlYCksIDApCm5fc2RfYmMgPC0gcm91bmQoc2QodGJsX2J3X2JjX2JyJGBCcmVhc3QgQ2lyY3VtZmVyZW5jZWApLCAyKQpgYGAKClVzZSB0aGUgZm9sbG93aW5nIHZhbHVlcyBmb3IgaW50ZXJjZXB0IGFuZCByZWdyZXNzaW9uIHNsb3BlIGZvciBgQm9keSBXZWlnaHRgIG9uIGBCcmVhc3QgQ2lyY3VtZmVyZW5jZWAgdG8gc2ltdWxhdGUgYSBkYXRhc2V0IG9mIHNpemUgJE4kLiBXaGF0IGlzIHRoZSBudW1iZXIgZm9yICROJCB0aGF0IGhhcyB0byBiZSBjaG9zZW4gc3VjaCB0aGF0IHRoZSByZWdyZXNzaW9uIGFuYWx5c2lzIG9mIHRoZSBzaW11bGF0ZWQgZGF0YSBnaXZlcyB0aGUgc2FtZSByZXN1bHQgYXMgdGhlIHRydWUgcmVncmVzc2lvbiBzbG9wZS4gCgpUaGUgdHJ1ZSB2YWx1ZXMgYXJlOiAKCiogSW50ZXJjZXB0OiAkYHIgbl9iX2ludGVyY2VwdGAkCiogUmVncmVzc2lvbiBzbG9wZTogJGByIG5fYl9zbG9wZWAkCiogUmVzaWR1YWwgc3RhbmRhcmQgZXJyb3I6ICRgciBuX3Jlc19zdGRfZXJyb3JgJAoKIyMjIEhpbnRzCgoqIFN0YXJ0IHdpdGggJE49YHIgbl9ucl9vYnNgJCwgc2ltdWxhdGUgYSBkYXRhc2V0IGFuZCBhbmFseXNlIHRoZSBkYXRhIHdpdGggYGxtKClgCiogSWYgdGhlIHJlc3VsdCAocm91bmRlZCB0byAxIGRpZ2l0cyBhZnRlciBkZWNpbWFsIHBvaW50KSBpcyBub3QgdGhlIHNhbWUgdGhlbiBkb3VibGUgdGhlIHNpemUgb2YgdGhlIGRhdGFzZXQsIGhlbmNlIHVzZSwgJE49YHIgMipuX25yX29ic2AkCiogQ29udGludWUgdW50aWwgeW91IGdldCBjbG9zZSB0byB0aGUgdHJ1ZSB2YWx1ZS4KKiBBc3N1bWUgdGhhdCB0aGUgcmFuZG9tIHJlc2l1ZGFscyBmb2xsb3cgYSBub3JtYWwgZGlzdHJpYnV0aW9uIHdpdGggbWVhbiB6ZXJvIGFuZCBzdGFuZGFyZCBkZXZhdGlvbiBlcXVhbCB0byAkYHIgbl9yZXNfc3RkX2Vycm9yYCQKKiBUYWtlIGJyZWFzdCBjaXJjdW1mZXJlbmNlIHRvIGJlIG5vcm1hbGx5IGRpc3RyaWJ1dGVkIHdpdGggYSBtZWFuIG9mICRgciBuX21lYW5fYmNgJCBhbmQgYSBzdGFuZGFyZCBkZXZpYXRpb24gb2YgJGByIG5fc2RfYmNgJAoqIFVzZSBhIGxpbmVhciByZWdyZXNzaW9uIG1vZGVsIHdpdGggYW4gaW50ZXJjZXB0IHRvIG1vZGVsIGV4cGVjdGVkIGJvZHkgd2VpZ2h0IGJhc2VkIG9uIGJyZWFzdCBjaXJjdW1mZXJlbmNlLgoKCiMjIyBZb3VyIFNvbHV0aW9uCgoqIFN0YXJ0IHdpdGggJE49YHIgbl9ucl9vYnNgJCwgc2ltdWxhdGUgYSBkYXRhc2V0IGFuZCBhbmFseXNlIHRoZSBkYXRhIHdpdGggYGxtKClgCiogSWYgdGhlIHJlc3VsdCAocm91bmRlZCB0byAxIGRpZ2l0cyBhZnRlciBkZWNpbWFsIHBvaW50KSBpcyBub3QgdGhlIHNhbWUgdGhlbiBkb3VibGUgdGhlIHNpemUgb2YgdGhlIGRhdGFzZXQsIGhlbmNlIHVzZSwgJE49YHIgMipuX25yX29ic2AkCiogQ29udGludWUgdW50aWwgeW91IGdldCBjbG9zZSB0byB0aGUgdHJ1ZSB2YWx1ZS4KCgoKCgoKCgpgYGB7ciwgZWNobz1GQUxTRSwgcmVzdWx0cz0nYXNpcyd9CmNhdCgnXG4tLS1cblxuIF9MYXRlc3QgQ2hhbmdlczogJywgZm9ybWF0KFN5cy50aW1lKCksICclWS0lbS0lZCAlSDolTTolUycpLCAnICgnLCBTeXMuaW5mbygpWyd1c2VyJ10sICcpX1xuJywgc2VwID0gJycpCmBgYAogCg==