1 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.

2 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, and including an interaction between dose and weight.

Load libraries

library(tidyverse)
library(ggplot2)
#install.packages("GGally")
library(GGally)
library(car)
library(multcomp)

3 Import the data

poison <- read_csv("https://raw.githubusercontent.com/statOmics/PSLS21/data/poison.csv")

4 Data tidying

We can see a couple of things in the data that can be improved:

  1. Capitalise the fist column name

  2. Set the Species column as a factor

  3. Change the species factor levels from 0, 1 and 2 to Dojofish, Goldfish and Zebrafish. Hint: use the fct_recode function.

  4. In 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.

  5. Subset the data to only retain Dojofish.

poison <- poison %>%
  rename("Species" = "species") %>%
  mutate(Species = as.factor(Species)) %>%
  mutate(Species = fct_recode(Species, Dojofish = "0", Goldfish = "1", Zebrafish = "2")) %>% 
  mutate(log2Surv_time = Surv_time %>% log2) %>%
  dplyr::select(-Surv_time) %>%
  filter(Species=="Dojofish")

poison

5 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.

poison %>%
  ggpairs + theme_bw()

Based on these plots, we observe that:

  • The survival time seems to be associated with dose and fish weight.

From the tutorial of H6 we have seen that the fish weights were not nicely uniform across the different poison dosages due to the randomisation.

poison %>%
  filter(Species == "Dojofish") %>%
  ggplot(aes(x = Dose, y = Weight)) +
  geom_point() +
  ggtitle("Association between dose and weight") +
  theme_bw() + 
  stat_summary(
    geom = "point",
    fun = "mean",
    col = "black",
    size = 4,
    shape = 24,
    fill = "red")

6 Analysis with main effect and interaction for dose and weight

6.1 Model specification

\[ y_i=\beta_0+\beta_d x_d + \beta_g x_g +\beta_{d:g} x_d x_g+ \epsilon_i, \]

with \(\epsilon_i \text{ i.i.d. } N(0,\sigma^2)\)

6.2 Assumptions

The model will again be fit to allow for assessing the model assumptions

# lm_Int <- lm(log2Surv_time ~ Dose+Weight+Dose:Weight, data = poison) # equivalent
lm_Int <- lm(log2Surv_time  ~ Dose*Weight, data = poison) # * -> short notation

par(mfrow=c(2,2))
plot(lm_Int)

The plots look very similar to those of the additive model from the previous exercise so we know that all assumptions are met.

6.3 Inference

We then inspect the results.

summary(lm_Int)
## 
## Call:
## lm(formula = log2Surv_time ~ Dose * Weight, data = poison)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.62807 -0.34662 -0.05587  0.30656  0.79086 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  -0.2851     2.4062  -0.118    0.906
## Dose         -0.2217     1.5440  -0.144    0.887
## Weight        1.6061     1.1325   1.418    0.165
## Dose:Weight  -0.3485     0.7242  -0.481    0.633
## 
## Residual standard error: 0.416 on 35 degrees of freedom
## Multiple R-squared:  0.5173, Adjusted R-squared:  0.4759 
## F-statistic:  12.5 on 3 and 35 DF,  p-value: 1.036e-05

6.4 Interpretation of model parameters

We may interpret the estimate parameters as follows:

  • When we compare the log2 survival of fish with weight \(x_g\) that are exposed to a dose that differs with 1 mg/l, the expected log2 survival time will be \(\beta_d+\beta_{d:g}*x_g\) higher for the fish that were exposed to the highest dose.

  • When we compare the log2 survival of fish exposed to dose \(x_g\), but that have a weight that differs with 1 g, the expected log2 survival time will be \(\beta_d+\beta_{d:g}*x_g\) higher for fish with the highest weight.

The parameter \(\beta_{d:g}\) thus shows that the effect of dose on the log2 survival time is dependent on the weight of the fish, and, that the effect of weight on the log2 survival time dependents on the dose that was administered.

6.5 Inference

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).

lmDojo_weight <- lm(log2Surv_time ~ Weight, data = poison)
anova(lmDojo_weight, lm_Int)

We observe an extremely significant (overall, or global) effect for dose on the log2 survival time of dojofish (p-value <<0.001)`.

6.6 Conventional approach

We already established that there is a significant overall effect of dose. 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 ways:

  1. The summary function
  2. An F-test comparing models with and without the interaction effect
  3. An ANOVA table with type III sum of squares
summary(lm_Int) #1
## 
## Call:
## lm(formula = log2Surv_time ~ Dose * Weight, data = poison)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.62807 -0.34662 -0.05587  0.30656  0.79086 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  -0.2851     2.4062  -0.118    0.906
## Dose         -0.2217     1.5440  -0.144    0.887
## Weight        1.6061     1.1325   1.418    0.165
## Dose:Weight  -0.3485     0.7242  -0.481    0.633
## 
## Residual standard error: 0.416 on 35 degrees of freedom
## Multiple R-squared:  0.5173, Adjusted R-squared:  0.4759 
## F-statistic:  12.5 on 3 and 35 DF,  p-value: 1.036e-05
lm_additive <- lm(log2Surv_time ~ Dose + Weight, data = poison) #2
anova(lm_additive,lm_Int) #2
Anova(lm_Int,type="III") #3

There is no significant interaction between dose and weight. As such, the effect of dose on survival is not signifiantly different between fish of different weight (p = 0.63).

The conventional approach is to remove the interaction effect from the model. As such, we are left with the additive linear regression model.

summary(lm_additive)
## 
## Call:
## lm(formula = log2Surv_time ~ Dose + Weight, data = poison)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -0.59629 -0.33110 -0.06836  0.32507  0.83315 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   0.8294     0.6457   1.285 0.207119    
## Dose         -0.9590     0.1888  -5.081 1.17e-05 ***
## Weight        1.0783     0.2792   3.862 0.000451 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4116 on 36 degrees of freedom
## Multiple R-squared:  0.5141, Adjusted R-squared:  0.4871 
## F-statistic: 19.04 on 2 and 36 DF,  p-value: 2.282e-06
2^(lm_additive$coef) # original scale
## (Intercept)        Dose      Weight 
##    1.777004    0.514402    2.111484
2^(confint(lm_additive))
##                 2.5 %    97.5 %
## (Intercept) 0.7169728 4.4042734
## Dose        0.3945101 0.6707292
## Weight      1.4259918 3.1265018

6.6.1 Conclusion

The conclusion is exactly the same as for the additive model analysis above (obviously, as we are dealing with the same model):

The dose of the poison has an extremely significant effect on the survival time of dojofish (p-value << 0.001). The geometric average of the survival time for dojofish that are exposed to a poison dose that is 1mg/L larger is approximately halved, factor = \(2^{\beta_d}=\) 0.51) .

The effect of dose on survival is not significantly different between fish of different weight. (p = 0.63).

7 Remark

Note, that we have have to test if the interaction is significant before using the additive model.

LS0tCnRpdGxlOiAiRXhlcmNpc2UgOC4yOiBOb24tYWRkaXRpdmUgbGluZWFyIG1vZGVsIG9uIHRoZSBwb2lzb24gZGF0YXNldCIgICAKYXV0aG9yOiAiTGlldmVuIENsZW1lbnQgYW5kIEplcm9lbiBHaWxpcyIKZGF0ZTogInN0YXRPbWljcywgR2hlbnQgVW5pdmVyc2l0eSAoaHR0cHM6Ly9zdGF0b21pY3MuZ2l0aHViLmlvKSIgIApvdXRwdXQ6CiAgICBodG1sX2RvY3VtZW50OgogICAgICBjb2RlX2Rvd25sb2FkOiB0cnVlICAgIAogICAgICB0aGVtZTogY29zbW8KICAgICAgdG9jOiB0cnVlCiAgICAgIHRvY19mbG9hdDogdHJ1ZQogICAgICBoaWdobGlnaHQ6IHRhbmdvCiAgICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQotLS0KCiMgVGhlIHBvaXNvbiBkYXRhc2V0CgpJbiB0aGlzIGV4cGVyaW1lbnQsIDk2IGZpc2ggKGRvam9maXNoLCBnb2xkZmlzaCBhbmQgemVicmFmaXNoKQp3ZXJlIHBsYWNlZCBzZXBhcmF0ZWx5IGluIGEgdGFuayB3aXRoIHR3byBsaXRlcnMgb2Ygd2F0ZXIgYW5kCmEgY2VydGFpbiBkb3NlIChpbiBtZykgb2YgdGhlIHBvaXNvbiBFSS00MywwNjQuIFRoZSByZXNpc3RhbmNlCm9mIHRoZSBmaXNoIGFnYWluc3QgdGhlIHBvaXNvbiB3YXMgbWVhc3VyZWQgYXMgdGhlIGFtb3VudCBvZgptaW51dGVzIHRoZSBmaXNoIHN1cnZpdmVkIGFmdGVyIGJlaW5nIGV4cG9zZWQgdG8gdGhlIHBvaXNvbiAoYFN1cnZfdGltZWAsIGluCm1pbnV0ZXMpLiBBZGRpdGlvbmFsbHksIHRoZSB3ZWlnaHQgb2YgZWFjaCBmaXNoIHdhcyBtZWFzdXJlZC4KCiMgR29hbAoKU3VwcG9zZSB0aGF0IHJlc2VhcmNoZXJzIGFyZSAsbWFpbmx5IGludGVyZXN0ZWQgaW4gc3R1ZHlpbmcgdGhlIGVmZmVjdCBvZiAKcG9pc29uIGRvc2Ugb24gdGhlIHN1cnZpdmFsIG9mIGZpc2guIFRoZXkga25vdyBob3dldmVyIHRoYXQgdGhlIHdlaWdodCBjYW4gCmFsc28gaW1wYWN0IHRoZSBzdXJ2aXZhbCBhbmQgbWlnaHQgYWxzbyBjaGFuZ2UgdGhlIGVmZmVjdCBvZiB0aGUgcG9pc29uIGRvc2UuIAoKSW4gdGhpcyB0dXRvcmlhbCBzZXNzaW9uIHdlIHdpbGwgZm9jdXMgb24gRG9qb2Zpc2ggYW5kIHdlIHdpbGwgbW9kZWwgdGhlIApzdXJ2aXZhbCB0aW1lIGluIGZ1bmN0aW9uIG9mIHRoZSBkb3NlIGFuZCB0aGUgd2VpZ2h0IG9mIHRoZSBmaXNoLCAKKiphbmQgaW5jbHVkaW5nIGFuIGludGVyYWN0aW9uIGJldHdlZW4gZG9zZSBhbmQgd2VpZ2h0LioqICAKCgpMb2FkIGxpYnJhcmllcwoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdncGxvdDIpCiNpbnN0YWxsLnBhY2thZ2VzKCJHR2FsbHkiKQpsaWJyYXJ5KEdHYWxseSkKbGlicmFyeShjYXIpCmxpYnJhcnkobXVsdGNvbXApCmBgYAoKIyBJbXBvcnQgdGhlIGRhdGEKCmBgYHtyLCBtZXNzYWdlPUZBTFNFfQpwb2lzb24gPC0gcmVhZF9jc3YoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9zdGF0T21pY3MvUFNMUzIxL2RhdGEvcG9pc29uLmNzdiIpCmBgYAoKIyBEYXRhIHRpZHlpbmcKCldlIGNhbiBzZWUgYSBjb3VwbGUgb2YgdGhpbmdzIGluIHRoZSBkYXRhIHRoYXQgY2FuIGJlIGltcHJvdmVkOgoKMS4gQ2FwaXRhbGlzZSB0aGUgZmlzdCBjb2x1bW4gbmFtZQoKMi4gU2V0IHRoZSBTcGVjaWVzIGNvbHVtbiBhcyBhIGZhY3RvcgoKMy4gQ2hhbmdlIHRoZSBzcGVjaWVzIGZhY3RvciBsZXZlbHMgZnJvbSAwLCAxIGFuZCAyIHRvCkRvam9maXNoLCBHb2xkZmlzaCBhbmQgWmVicmFmaXNoLiAqSGludCo6IHVzZSB0aGUgYGZjdF9yZWNvZGVgIGZ1bmN0aW9uLgoKNC4gSW4gcHJldmlvdXMgYW5hbHlzaXMgb24gdGhpcyBkYXRhc2V0IChgU2ltcGxlIGxpbmVhciByZWdyZXNzaW9uIHNlc3Npb25gKSwgd2UKcGVyZm9ybWVkIGEgbG9nLXRyYW5zZm9ybWF0aW9uIG9uIHRoZSByZXNwb25zZSB2YXJpYWJsZSBgU3Vydl90aW1lYCB0byBtZWV0IHRoZQpub3JtYWxpdHkgYW5kIGhvbW9zY2VkYXN0aWNpdHkgYXNzdW1wdGlvbnMgb2YgdGhlIGxpbmVhciBtb2RlbC4gSGVyZSwgd2Ugd2lsbAppbW1lZGlhdGVseSB3b3JrIHdpdGggbG9nLXRyYW5zZm9ybWVkIHN1cnZpdmFsIHRpbWVzOyBzdG9yZSB0aGVzZSBpbiB0aGUgbmV3IAp2YXJpYWJsZSBgbG9nMlN1cnZfdGltZWAgYW5kIHJlbW92ZSB0aGUgbm9uLXRyYW5zZm9ybWVkIHZhbHVlcy4KCjUuIFN1YnNldCB0aGUgZGF0YSB0byBvbmx5IHJldGFpbiAqKkRvam9maXNoKiouCgpgYGB7cn0KcG9pc29uIDwtIHBvaXNvbiAlPiUKICByZW5hbWUoIlNwZWNpZXMiID0gInNwZWNpZXMiKSAlPiUKICBtdXRhdGUoU3BlY2llcyA9IGFzLmZhY3RvcihTcGVjaWVzKSkgJT4lCiAgbXV0YXRlKFNwZWNpZXMgPSBmY3RfcmVjb2RlKFNwZWNpZXMsIERvam9maXNoID0gIjAiLCBHb2xkZmlzaCA9ICIxIiwgWmVicmFmaXNoID0gIjIiKSkgJT4lIAogIG11dGF0ZShsb2cyU3Vydl90aW1lID0gU3Vydl90aW1lICU+JSBsb2cyKSAlPiUKICBkcGx5cjo6c2VsZWN0KC1TdXJ2X3RpbWUpICU+JQogIGZpbHRlcihTcGVjaWVzPT0iRG9qb2Zpc2giKQoKcG9pc29uCmBgYAoKIyBEYXRhIGV4cGxvcmF0aW9uCgpQcmlvciB0byB0aGUgYW5hbHlzaXMsIHdlIHNob3VsZCBleHBsb3JlIG91ciBkYXRhLiAKVG8gc3RhcnQgb3VyIGRhdGEgZXhwbG9yYXRpb24sIHdlIHdpbGwgbWFrZSB1c2Ugb2YgdGhlIGBnZ3BhaXJzYCBmdW5jdGlvbiBvZiB0aGUKYEdHYWxseWAgUiBwYWNrYWdlLiBUaGlzIGZ1bmN0aW9uIHdpbGwgZ2VuZXJhdGUgYSB2aXN1YWxpemF0aW9uIGNvbnRhaW5pbmcKbXVsdGlwbGUgcGFuZWxzLCB3aGljaCBkaXNwbGF5ICgxKSB1bml2YXJpYXRlIHBsb3RzIG9mIHRoZSBkaWZmZXJlbnQgdmFyaWFibGVzCmluIG91ciBkYXRhc2V0LCAoMikgYml2YXJpYXRlIHBsb3RzIGFuZCAoMykgY29ycmVsYXRpb24gY29lZmZpY2llbnRzIGJldHdlZW4gCnRoZSBkaWZmZXJlbnQgdmFyaWFibGVzLgoKYGBge3IsIG1lc3NhZ2U9RkFMU0V9CnBvaXNvbiAlPiUKICBnZ3BhaXJzICsgdGhlbWVfYncoKQpgYGAKCkJhc2VkIG9uIHRoZXNlIHBsb3RzLCB3ZSBvYnNlcnZlIHRoYXQ6CgotIFRoZSBzdXJ2aXZhbCB0aW1lIHNlZW1zIHRvIGJlIGFzc29jaWF0ZWQgd2l0aCBkb3NlIGFuZCBmaXNoIHdlaWdodC4KCkZyb20gdGhlIHR1dG9yaWFsIG9mIEg2IHdlIGhhdmUgc2VlbiB0aGF0IHRoZSBmaXNoIHdlaWdodHMgd2VyZSBub3QgbmljZWx5IAp1bmlmb3JtIGFjcm9zcyB0aGUgZGlmZmVyZW50IHBvaXNvbiBkb3NhZ2VzIGR1ZSB0byB0aGUgcmFuZG9taXNhdGlvbi4KCgpgYGB7ciwgbWVzc2FnZT1GQUxTRX0KcG9pc29uICU+JQogIGZpbHRlcihTcGVjaWVzID09ICJEb2pvZmlzaCIpICU+JQogIGdncGxvdChhZXMoeCA9IERvc2UsIHkgPSBXZWlnaHQpKSArCiAgZ2VvbV9wb2ludCgpICsKICBnZ3RpdGxlKCJBc3NvY2lhdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodCIpICsKICB0aGVtZV9idygpICsgCiAgc3RhdF9zdW1tYXJ5KAogICAgZ2VvbSA9ICJwb2ludCIsCiAgICBmdW4gPSAibWVhbiIsCiAgICBjb2wgPSAiYmxhY2siLAogICAgc2l6ZSA9IDQsCiAgICBzaGFwZSA9IDI0LAogICAgZmlsbCA9ICJyZWQiKQpgYGAKCiMgQW5hbHlzaXMgd2l0aCBtYWluIGVmZmVjdCBhbmQgaW50ZXJhY3Rpb24gZm9yIGRvc2UgYW5kIHdlaWdodAoKIyMgTW9kZWwgc3BlY2lmaWNhdGlvbgoKJCQKeV9pPVxiZXRhXzArXGJldGFfZCB4X2QgKyBcYmV0YV9nIHhfZyArXGJldGFfe2Q6Z30geF9kIHhfZysgXGVwc2lsb25faSwKJCQKCndpdGggJFxlcHNpbG9uX2kgXHRleHR7IGkuaS5kLiB9IE4oMCxcc2lnbWFeMikkCgojIyBBc3N1bXB0aW9ucwoKVGhlIG1vZGVsIHdpbGwgYWdhaW4gYmUgZml0IHRvIGFsbG93IGZvciBhc3Nlc3NpbmcgdGhlIG1vZGVsIGFzc3VtcHRpb25zCgpgYGB7cn0KIyBsbV9JbnQgPC0gbG0obG9nMlN1cnZfdGltZSB+IERvc2UrV2VpZ2h0K0Rvc2U6V2VpZ2h0LCBkYXRhID0gcG9pc29uKSAjIGVxdWl2YWxlbnQKbG1fSW50IDwtIGxtKGxvZzJTdXJ2X3RpbWUgIH4gRG9zZSpXZWlnaHQsIGRhdGEgPSBwb2lzb24pICMgKiAtPiBzaG9ydCBub3RhdGlvbgoKcGFyKG1mcm93PWMoMiwyKSkKcGxvdChsbV9JbnQpCmBgYAoKVGhlIHBsb3RzIGxvb2sgdmVyeSBzaW1pbGFyIHRvIHRob3NlIG9mIHRoZSBhZGRpdGl2ZSBtb2RlbCBmcm9tIHRoZSBwcmV2aW91cyBleGVyY2lzZSBzbyB3ZSBrbm93IHRoYXQgYWxsIGFzc3VtcHRpb25zIGFyZSAqKm1ldCoqLgoKIyMgSW5mZXJlbmNlCgpXZSB0aGVuIGluc3BlY3QgdGhlIHJlc3VsdHMuCgpgYGB7cn0Kc3VtbWFyeShsbV9JbnQpCmBgYAoKIyMgSW50ZXJwcmV0YXRpb24gb2YgbW9kZWwgcGFyYW1ldGVycwoKV2UgbWF5IGludGVycHJldCB0aGUgZXN0aW1hdGUgcGFyYW1ldGVycyBhcyBmb2xsb3dzOgoKLSBXaGVuIHdlIGNvbXBhcmUgdGhlIGxvZzIgc3Vydml2YWwgb2YgZmlzaCB3aXRoIHdlaWdodCAkeF9nJCB0aGF0IGFyZSBleHBvc2VkIHRvIGEgZG9zZSB0aGF0IGRpZmZlcnMgd2l0aCAxIG1nL2wsIHRoZSBleHBlY3RlZCBsb2cyIHN1cnZpdmFsIHRpbWUgd2lsbCBiZSAKJFxiZXRhX2QrXGJldGFfe2Q6Z30qeF9nJCBoaWdoZXIgZm9yIHRoZSBmaXNoIHRoYXQgd2VyZSBleHBvc2VkIHRvIHRoZSBoaWdoZXN0IGRvc2UuCgotIFdoZW4gd2UgY29tcGFyZSB0aGUgbG9nMiBzdXJ2aXZhbCBvZiBmaXNoIGV4cG9zZWQgdG8gZG9zZSAkeF9nJCwgYnV0IHRoYXQgaGF2ZSBhIHdlaWdodCB0aGF0IGRpZmZlcnMgd2l0aCAxIGcsIHRoZSBleHBlY3RlZCBsb2cyIHN1cnZpdmFsIHRpbWUgCndpbGwgYmUgICRcYmV0YV9kK1xiZXRhX3tkOmd9KnhfZyQgaGlnaGVyIGZvciBmaXNoIHdpdGggdGhlIGhpZ2hlc3Qgd2VpZ2h0LgoKVGhlIHBhcmFtZXRlciAkXGJldGFfe2Q6Z30kIHRodXMgc2hvd3MgdGhhdCB0aGUgZWZmZWN0IG9mIGRvc2Ugb24gdGhlIGxvZzIgc3Vydml2YWwgdGltZSBpcyBkZXBlbmRlbnQgb24gdGhlCndlaWdodCBvZiB0aGUgZmlzaCwgYW5kLCB0aGF0IHRoZSBlZmZlY3QKb2Ygd2VpZ2h0IG9uIHRoZSBsb2cyIHN1cnZpdmFsIHRpbWUgZGVwZW5kZW50cyBvbiB0aGUgZG9zZSB0aGF0IHdhcwphZG1pbmlzdGVyZWQuCgojIyBJbmZlcmVuY2UKClRoZSBlZmZlY3Qgb2YgZG9zZSBpcyBub3cgcGFyYW1ldGVyaXplZCBieSB0d28gbW9kZWwgcGFyYW1ldGVycyAoJFxiZXRhX2QkIAphbmQgJFxiZXRhX3tkOmd9JCkuIFdlIGZpcnN0IGV2YWx1YXRlIGFuICpvbW5pYnVzKiBoeXBvdGhlc2VzIHRoYXQgdGhlcmUgaXMKbm8gZWZmZWN0IG9mIGRvc2UsIGkuZS4sIG5vIG1haW4gZWZmZWN0IG5vciBhbiBpbnRlcmFjdGlvbiBlZmZlY3QuIFdlIGNhbiB0ZXN0CnRoaXMgd2l0aCBhbiBGLXRlc3QgdGhhdCBjb21wYXJlcyBhICpmdWxsKiBtb2RlbCAoMSkgY29udGFpbmluZyBhIG1haW4gZWZmZWN0IApmb3IgZG9zZSwgYSBtYWluIGVmZmVjdCBmb3Igd2VpZ2h0IGFuZCBhbiBpbnRlcmFjdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodAp3aXRoIGEgbW9kZWwgKDIpIHRoYXQgb25seSBjb250YWlucyBhIG1haW4gZWZmZWN0IGZvciB3ZWlnaHQgKGkuZS4gbm8gZWZmZWN0CmZvciBkb3NlKS4KCmBgYHtyfQpsbURvam9fd2VpZ2h0IDwtIGxtKGxvZzJTdXJ2X3RpbWUgfiBXZWlnaHQsIGRhdGEgPSBwb2lzb24pCmFub3ZhKGxtRG9qb193ZWlnaHQsIGxtX0ludCkKYGBgCgpXZSBvYnNlcnZlIGFuIGV4dHJlbWVseSBzaWduaWZpY2FudCAob3ZlcmFsbCwgb3IgZ2xvYmFsKSBlZmZlY3QgZm9yIGRvc2Ugb24gCnRoZSBsb2cyIHN1cnZpdmFsIHRpbWUgb2YgZG9qb2Zpc2ggCihwLXZhbHVlIDw8MC4wMDEpYC4KCiMjIENvbnZlbnRpb25hbCBhcHByb2FjaAoKV2UgYWxyZWFkeSBlc3RhYmxpc2hlZCB0aGF0IHRoZXJlIGlzIGEgc2lnbmlmaWNhbnQgb3ZlcmFsbCBlZmZlY3Qgb2YgZG9zZS4KTm93LCB3ZSB3aWxsIHRlc3QgaWYgdGhlcmUgaXMgYSBzaWduaWZpY2FudCBpbnRlcmFjdGlvbiBlZmZlY3QgYmV0d2VlbiBkb3NlIAphbmQgd2VpZ2h0LiBTaW5jZSB3ZSBvbmx5IGhhdmUgb25lIGludGVyYWN0aW9uIHRlcm0gaW4gdGhpcyBtb2RlbCwgdGhpcyBjYW4KYmUgYWNoaWV2ZWQgaW4gc2V2ZXJhbCB3YXlzOgoKMS4gVGhlIGBzdW1tYXJ5YCBmdW5jdGlvbgoyLiBBbiBGLXRlc3QgY29tcGFyaW5nIG1vZGVscyB3aXRoIGFuZCB3aXRob3V0IHRoZSBpbnRlcmFjdGlvbiBlZmZlY3QKMy4gQW4gQU5PVkEgdGFibGUgd2l0aCB0eXBlIElJSSBzdW0gb2Ygc3F1YXJlcyAgCgoKYGBge3J9CnN1bW1hcnkobG1fSW50KSAjMQpsbV9hZGRpdGl2ZSA8LSBsbShsb2cyU3Vydl90aW1lIH4gRG9zZSArIFdlaWdodCwgZGF0YSA9IHBvaXNvbikgIzIKYW5vdmEobG1fYWRkaXRpdmUsbG1fSW50KSAjMgpBbm92YShsbV9JbnQsdHlwZT0iSUlJIikgIzMKYGBgCgpUaGVyZSBpcyBubyBzaWduaWZpY2FudCBpbnRlcmFjdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodC4gQXMgc3VjaCwgdGhlCmVmZmVjdCBvZiBkb3NlIG9uIHN1cnZpdmFsIGlzIG5vdCBzaWduaWZpYW50bHkgZGlmZmVyZW50IGJldHdlZW4gZmlzaCBvZgpkaWZmZXJlbnQgd2VpZ2h0IChwID0gYHIgZm9ybWF0KEFub3ZhKGxtX0ludCx0eXBlPSJJSUkiKSQiUHIoPkYpIls0XSwgZGlnaXRzID0gMilgKS4KClRoZSBjb252ZW50aW9uYWwgYXBwcm9hY2ggaXMgdG8gcmVtb3ZlIHRoZSBpbnRlcmFjdGlvbiBlZmZlY3QgZnJvbSB0aGUgCm1vZGVsLiBBcyBzdWNoLCB3ZSBhcmUgbGVmdCB3aXRoIHRoZSBhZGRpdGl2ZSBsaW5lYXIgcmVncmVzc2lvbiBtb2RlbC4gCgpgYGB7cn0Kc3VtbWFyeShsbV9hZGRpdGl2ZSkKYGBgCgpgYGB7cn0KMl4obG1fYWRkaXRpdmUkY29lZikgIyBvcmlnaW5hbCBzY2FsZQoyXihjb25maW50KGxtX2FkZGl0aXZlKSkKYGBgCgojIyMgQ29uY2x1c2lvbgoKVGhlIGNvbmNsdXNpb24gaXMgZXhhY3RseSB0aGUgc2FtZSBhcyBmb3IgdGhlIGFkZGl0aXZlIG1vZGVsIGFuYWx5c2lzIGFib3ZlIAoob2J2aW91c2x5LCBhcyB3ZSBhcmUgZGVhbGluZyB3aXRoIHRoZSBzYW1lIG1vZGVsKToKClRoZSBkb3NlIG9mIHRoZSBwb2lzb24gaGFzIGFuIGV4dHJlbWVseSBzaWduaWZpY2FudCBlZmZlY3Qgb24gdGhlIHN1cnZpdmFsIHRpbWUKb2YgZG9qb2Zpc2ggKHAtdmFsdWUgPDwgMC4wMDEpLiBUaGUgZ2VvbWV0cmljIGF2ZXJhZ2Ugb2YgdGhlIHN1cnZpdmFsIHRpbWUgZm9yIApkb2pvZmlzaCB0aGF0IGFyZSBleHBvc2VkIHRvIGEgcG9pc29uIGRvc2UgdGhhdCBpcyAxbWcvTCBsYXJnZXIgaXMgYXBwcm94aW1hdGVseQpoYWx2ZWQsIApmYWN0b3IgPSAkMl57XGJldGFfZH09JCBgciBmb3JtYXQoMl4obG1fYWRkaXRpdmUkY29lZlsiRG9zZSJdKSxkaWdpdHM9MilgKSAuCgoKVGhlIGVmZmVjdCBvZiBkb3NlIG9uIHN1cnZpdmFsIGlzIG5vdCBzaWduaWZpY2FudGx5IGRpZmZlcmVudCBiZXR3ZWVuIGZpc2ggb2YKZGlmZmVyZW50IHdlaWdodC4gKHAgPSBgciBmb3JtYXQoc3VtbWFyeShsbV9JbnQpJGNvZWZmaWNpZW50c1s0LDRdLCBkaWdpdHM9MilgKS4KCgojIFJlbWFyawoKTm90ZSwgdGhhdCB3ZSBoYXZlIGhhdmUgdG8gdGVzdCBpZiB0aGUgaW50ZXJhY3Rpb24gaXMgc2lnbmlmaWNhbnQgYmVmb3JlIHVzaW5nIAp0aGUgYWRkaXRpdmUgbW9kZWwuIAoKCgo=