The poison dataset
In this experiment, 96 fish (dojofish, goldfish and zebrafish) were placed separately in a tank with two liters of water and a certain dose (in mg) of the poison EI-43,064. The resistance of the fish against the poison was measured as the amount of minutes the fish survived after being exposed to the poison (Surv_time
, in minutes). Additionally, the weight of each fish was measured.
Goal
Suppose that researchers are ,mainly interested in studying the effect of poison dose on the survival of fish. They know however that the weight can also impact the survival and might also change the effect of the poison dose.
In this tutorial session we will focus on Dojofish and we will model the survival time in function of the dose and the weight of the fish, including an interaction between dose and weight.
Load libraries
Import the data
Data tidying
We can see a couple of things in the data that can be improved:
Capitalise the fist column name
Set the Species column as a factor
Change the species factor levels from “0” to Dojofish. Hint: use the fct_recode
function.
In the previous analysis on this dataset (Simple linear regression session
), we performed a log-transformation on the response variable Surv_time
to meet the normality and homoscedasticity assumptions of the linear model. Here, we will immediately work with log-transformed survival times; store these in the new variable log2Surv_time
and remove the non-transformed values.
Subset the data to only retain dojofish (species “0”).
Data exploration
Prior to the analysis, we should explore our data. To start our data exploration, we will make use of the ggpairs
function of the GGally
R package. This function will generate a visualization containing multiple panels, which display (1) univariate plots of the different variables in our dataset, (2) bivariate plots and (3) correlation coefficients between the different variables.
Analysis with interaction and main effect for weight
Model specification
\[
y_i=\beta_0+\beta_d x_d + \beta_g x_g +\beta_{d:g} x_d x_g+ \epsilon_i,
\]
Can you interpret the different model parameters?
Assess model assumptions
Inference
Use the model to test the parameters of interest.
Interpretation of model parameters
On the transformed and the original scale.
Assessing the dose effect
The effect of dose is now parameterized by two model parameters (\(\beta_d\) and \(\beta_{d:g}\)). We first evaluate an omnibus hypotheses that there is no effect of dose, i.e., no main effect nor an interaction effect. We can test this with an F-test that compares a full model (1) containing a main effect for dose, a main effect for weight and an interaction between dose and weight with a model (2) that only contains a main effect for weight (i.e. no effect for dose).
# we already have made the full model (above)
... # fit model that only contains a main effect for weight (no effect for dose)
... # perform the F-test between the two models
Assessing the interaction between dose and weight
Now, we will test if there is a significant interaction effect between dose and weight. Since we only have one interaction term in this model, this can be achieved in several equivalent ways:
- The
summary
function
- An F-test comparing models with and without the interaction effect
- An ANOVA table with type III sum of squares
Conclusion
On the transformed and the original scale.
LS0tCnRpdGxlOiAiRXhlcmNpc2UgOC4yOiBOb24tYWRkaXRpdmUgbGluZWFyIG1vZGVsIG9uIHRoZSBwb2lzb24gZGF0YXNldCIKYXV0aG9yOiAiTGlldmVuIENsZW1lbnQgYW5kIEplcm9lbiBHaWxpcyIKZGF0ZTogInN0YXRPbWljcywgR2hlbnQgVW5pdmVyc2l0eSAoaHR0cHM6Ly9zdGF0b21pY3MuZ2l0aHViLmlvKSIKLS0tCgojIFRoZSBwb2lzb24gZGF0YXNldAoKSW4gdGhpcyBleHBlcmltZW50LCA5NiBmaXNoIChkb2pvZmlzaCwgZ29sZGZpc2ggYW5kIHplYnJhZmlzaCkKd2VyZSBwbGFjZWQgc2VwYXJhdGVseSBpbiBhIHRhbmsgd2l0aCB0d28gbGl0ZXJzIG9mIHdhdGVyIGFuZAphIGNlcnRhaW4gZG9zZSAoaW4gbWcpIG9mIHRoZSBwb2lzb24gRUktNDMsMDY0LiBUaGUgcmVzaXN0YW5jZQpvZiB0aGUgZmlzaCBhZ2FpbnN0IHRoZSBwb2lzb24gd2FzIG1lYXN1cmVkIGFzIHRoZSBhbW91bnQgb2YKbWludXRlcyB0aGUgZmlzaCBzdXJ2aXZlZCBhZnRlciBiZWluZyBleHBvc2VkIHRvIHRoZSBwb2lzb24gKGBTdXJ2X3RpbWVgLCBpbgptaW51dGVzKS4gQWRkaXRpb25hbGx5LCB0aGUgd2VpZ2h0IG9mIGVhY2ggZmlzaCB3YXMgbWVhc3VyZWQuCgojIEdvYWwKClN1cHBvc2UgdGhhdCByZXNlYXJjaGVycyBhcmUgLG1haW5seSBpbnRlcmVzdGVkIGluIHN0dWR5aW5nIHRoZSBlZmZlY3Qgb2YKcG9pc29uIGRvc2Ugb24gdGhlIHN1cnZpdmFsIG9mIGZpc2guIFRoZXkga25vdyBob3dldmVyIHRoYXQgdGhlIHdlaWdodCBjYW4KYWxzbyBpbXBhY3QgdGhlIHN1cnZpdmFsIGFuZCBtaWdodCBhbHNvIGNoYW5nZSB0aGUgZWZmZWN0IG9mIHRoZSBwb2lzb24gZG9zZS4KCkluIHRoaXMgdHV0b3JpYWwgc2Vzc2lvbiB3ZSB3aWxsIGZvY3VzIG9uIERvam9maXNoIGFuZCB3ZSB3aWxsIG1vZGVsIHRoZQpzdXJ2aXZhbCB0aW1lIGluIGZ1bmN0aW9uIG9mIHRoZSBkb3NlIGFuZCB0aGUgd2VpZ2h0IG9mIHRoZSBmaXNoLAoqKmluY2x1ZGluZyBhbiBpbnRlcmFjdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodC4qKgoKTG9hZCBsaWJyYXJpZXMKCmBgYHtyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQoKYGBgCgojIEltcG9ydCB0aGUgZGF0YQoKYGBge3IsIG1lc3NhZ2U9RkFMU0V9CgpgYGAKCiMgRGF0YSB0aWR5aW5nCgpXZSBjYW4gc2VlIGEgY291cGxlIG9mIHRoaW5ncyBpbiB0aGUgZGF0YSB0aGF0IGNhbiBiZSBpbXByb3ZlZDoKCjEuIENhcGl0YWxpc2UgdGhlIGZpc3QgY29sdW1uIG5hbWUKCjMuIFNldCB0aGUgU3BlY2llcyBjb2x1bW4gYXMgYSBmYWN0b3IKCjQuIENoYW5nZSB0aGUgc3BlY2llcyBmYWN0b3IgbGV2ZWxzIGZyb20gIjAiIHRvIERvam9maXNoLgoqSGludCo6IHVzZSB0aGUgYGZjdF9yZWNvZGVgIGZ1bmN0aW9uLgoKNC4gSW4gdGhlIHByZXZpb3VzIGFuYWx5c2lzIG9uIHRoaXMgZGF0YXNldAooYFNpbXBsZSBsaW5lYXIgcmVncmVzc2lvbiBzZXNzaW9uYCksIHdlIHBlcmZvcm1lZCBhIGxvZy10cmFuc2Zvcm1hdGlvbiBvbiB0aGUKcmVzcG9uc2UgdmFyaWFibGUgYFN1cnZfdGltZWAgdG8gbWVldCB0aGUgbm9ybWFsaXR5IGFuZCBob21vc2NlZGFzdGljaXR5CmFzc3VtcHRpb25zIG9mIHRoZSBsaW5lYXIgbW9kZWwuIEhlcmUsIHdlIHdpbGwgaW1tZWRpYXRlbHkgd29yayB3aXRoCmxvZy10cmFuc2Zvcm1lZCBzdXJ2aXZhbCB0aW1lczsgc3RvcmUgdGhlc2UgaW4gdGhlIG5ldyAgdmFyaWFibGUgYGxvZzJTdXJ2X3RpbWVgCmFuZCByZW1vdmUgdGhlIG5vbi10cmFuc2Zvcm1lZCB2YWx1ZXMuCgo1LiBTdWJzZXQgdGhlIGRhdGEgdG8gb25seSByZXRhaW4gKipkb2pvZmlzaCoqIChzcGVjaWVzICIwIikuCgpgYGB7cn0KCmBgYAoKIyBEYXRhIGV4cGxvcmF0aW9uCgpQcmlvciB0byB0aGUgYW5hbHlzaXMsIHdlIHNob3VsZCBleHBsb3JlIG91ciBkYXRhLiBUbyBzdGFydCBvdXIgZGF0YQpleHBsb3JhdGlvbiwgd2Ugd2lsbCBtYWtlIHVzZSBvZiB0aGUgYGdncGFpcnNgIGZ1bmN0aW9uIG9mIHRoZQpgR0dhbGx5YCBSIHBhY2thZ2UuIFRoaXMgZnVuY3Rpb24gd2lsbCBnZW5lcmF0ZSBhIHZpc3VhbGl6YXRpb24gY29udGFpbmluZwptdWx0aXBsZSBwYW5lbHMsIHdoaWNoIGRpc3BsYXkgKDEpIHVuaXZhcmlhdGUgcGxvdHMgb2YgdGhlIGRpZmZlcmVudCB2YXJpYWJsZXMKaW4gb3VyIGRhdGFzZXQsICgyKSBiaXZhcmlhdGUgcGxvdHMgYW5kICgzKSBjb3JyZWxhdGlvbiBjb2VmZmljaWVudHMgYmV0d2Vlbgp0aGUgZGlmZmVyZW50IHZhcmlhYmxlcy4KCmBgYHtyfQoKYGBgCgojIEFuYWx5c2lzIHdpdGggaW50ZXJhY3Rpb24gYW5kIG1haW4gZWZmZWN0IGZvciB3ZWlnaHQKCiMjIE1vZGVsIHNwZWNpZmljYXRpb24KCiQkCnlfaT1cYmV0YV8wK1xiZXRhX2QgeF9kICsgXGJldGFfZyB4X2cgK1xiZXRhX3tkOmd9IHhfZCB4X2crIFxlcHNpbG9uX2ksCiQkCgpDYW4geW91IGludGVycHJldCB0aGUgZGlmZmVyZW50IG1vZGVsIHBhcmFtZXRlcnM/CgojIyBBc3Nlc3MgbW9kZWwgYXNzdW1wdGlvbnMKCiMjIEluZmVyZW5jZQoKVXNlIHRoZSBtb2RlbCB0byB0ZXN0IHRoZSBwYXJhbWV0ZXJzIG9mIGludGVyZXN0LgoKIyMgSW50ZXJwcmV0YXRpb24gb2YgbW9kZWwgcGFyYW1ldGVycwoKT24gdGhlIHRyYW5zZm9ybWVkIGFuZCB0aGUgb3JpZ2luYWwgc2NhbGUuCgojIyBBc3Nlc3NpbmcgdGhlIGRvc2UgZWZmZWN0CgpUaGUgZWZmZWN0IG9mIGRvc2UgaXMgbm93IHBhcmFtZXRlcml6ZWQgYnkgdHdvIG1vZGVsIHBhcmFtZXRlcnMgKCRcYmV0YV9kJAphbmQgJFxiZXRhX3tkOmd9JCkuIFdlIGZpcnN0IGV2YWx1YXRlIGFuICpvbW5pYnVzKiBoeXBvdGhlc2VzIHRoYXQgdGhlcmUgaXMKbm8gZWZmZWN0IG9mIGRvc2UsIGkuZS4sIG5vIG1haW4gZWZmZWN0IG5vciBhbiBpbnRlcmFjdGlvbiBlZmZlY3QuIFdlIGNhbiB0ZXN0CnRoaXMgd2l0aCBhbiBGLXRlc3QgdGhhdCBjb21wYXJlcyBhICpmdWxsKiBtb2RlbCAoMSkgY29udGFpbmluZyBhIG1haW4gZWZmZWN0CmZvciBkb3NlLCBhIG1haW4gZWZmZWN0IGZvciB3ZWlnaHQgYW5kIGFuIGludGVyYWN0aW9uIGJldHdlZW4gZG9zZSBhbmQgd2VpZ2h0CndpdGggYSBtb2RlbCAoMikgdGhhdCBvbmx5IGNvbnRhaW5zIGEgbWFpbiBlZmZlY3QgZm9yIHdlaWdodCAoaS5lLiBubyBlZmZlY3QKZm9yIGRvc2UpLgoKYGBge3IsIGV2YWwgPSBGQUxTRX0KIyB3ZSBhbHJlYWR5IGhhdmUgbWFkZSB0aGUgZnVsbCBtb2RlbCAoYWJvdmUpCi4uLiAjIGZpdCBtb2RlbCB0aGF0IG9ubHkgY29udGFpbnMgYSBtYWluIGVmZmVjdCBmb3Igd2VpZ2h0IChubyBlZmZlY3QgZm9yIGRvc2UpCi4uLiAjIHBlcmZvcm0gdGhlIEYtdGVzdCBiZXR3ZWVuIHRoZSB0d28gbW9kZWxzCmBgYAoKIyMgQXNzZXNzaW5nIHRoZSBpbnRlcmFjdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodAoKTm93LCB3ZSB3aWxsIHRlc3QgaWYgdGhlcmUgaXMgYSBzaWduaWZpY2FudCBpbnRlcmFjdGlvbiBlZmZlY3QgYmV0d2VlbiBkb3NlCmFuZCB3ZWlnaHQuIFNpbmNlIHdlIG9ubHkgaGF2ZSBvbmUgaW50ZXJhY3Rpb24gdGVybSBpbiB0aGlzIG1vZGVsLCB0aGlzIGNhbgpiZSBhY2hpZXZlZCBpbiBzZXZlcmFsIGVxdWl2YWxlbnQgd2F5czoKCjEuIFRoZSBgc3VtbWFyeWAgZnVuY3Rpb24KMi4gQW4gRi10ZXN0IGNvbXBhcmluZyBtb2RlbHMgd2l0aCBhbmQgd2l0aG91dCB0aGUgaW50ZXJhY3Rpb24gZWZmZWN0CjMuIEFuIEFOT1ZBIHRhYmxlIHdpdGggdHlwZSBJSUkgc3VtIG9mIHNxdWFyZXMKCmBgYHtyfQoKYGBgCgojIyBDb25jbHVzaW9uCgpPbiB0aGUgdHJhbnNmb3JtZWQgYW5kIHRoZSBvcmlnaW5hbCBzY2FsZS4K