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

In this tutorial session we will focus on Dojofish, and we will model the survival time in function of the poison dose while correcting for the weight of the fish.

  1. We will first analyse the survival data by only considering the dose as an explanatory variable for survival time

  2. Next we will model the survival data with and additive model for 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” to Dojofish. Hint: use the fct_recode function.

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

  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 %>%
  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 Simple linear regression

This is the same regression model that we have already fit in the exercise session on simple linear regression, with Dose as the only explanatory variable for log2Surv_time.

# fit a linear regression model with 'Surv_time' as response variable and
# 'Dose' as predictor variabele
lm_simple <- lm(log2Surv_time ~ Dose, data=poison) 

## display the diagnostic plots of the model
par(mfrow=c(2,2))
plot(lm_simple)

  1. The independence assumption was met because the fish were randomized to the dose.
  2. The linearity assumption is met.
  3. The normality assumption is met.
  4. The homoscedasticity assumption is met.

Finally, we look at the output of the model.

summary(lm_simple)
## 
## Call:
## lm(formula = log2Surv_time ~ Dose, data = poison)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -0.6891 -0.3804 -0.1076  0.3452  1.0856 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   3.0469     0.3462   8.800 1.33e-10 ***
## Dose         -0.9063     0.2208  -4.104 0.000215 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 0.4828 on 37 degrees of freedom
## Multiple R-squared:  0.3128, Adjusted R-squared:  0.2942 
## F-statistic: 16.84 on 1 and 37 DF,  p-value: 0.0002146

Or for an interpretation at the original scale (minutes in stead of log2 minutes):

2^(lm_simple$coef)["Dose"]
##      Dose 
## 0.5335551
2^(confint(lm_simple))[2,]
##     2.5 %    97.5 % 
## 0.3912681 0.7275855

There is a very significant effect of the poison on survival of Dojofish (p< 0.001). Dojofish that are exposed to a higher dose of the poison will have a survival time that decrease on average with a factor 0.53 per gram of poison that is added (95% CI [0.39, 0.73]).

7 Analysis with additive effect for weight

7.1 Model specification

Here, we will estimate the effect of the poison while correcting for weight and we will add it as an additional covariate to our linear regression model, such that

\[ y_i=\beta_0+\beta_d x_d + \beta_g x_g + \epsilon_i, \]

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

7.2 Assumptions

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

lm_additive <- lm(log2Surv_time ~ Dose + Weight, data = poison)
par(mfrow=c(2,2))
plot(lm_additive)

The assumption of independence, linearity and homoscedasticity are met.

The QQ-plot suggest that there might be some deviation from normality in the left tail of the,distribution. However, when we would simulate data under the normality assumption, it seems that deviations of this size may be expected when normality is met. We will use simulation to assess if we can observe similar residual plots if all assumptions for the linear model hold.

set.seed(1031)
sigma <- lm_additive %>% sigma 

dataHlp <- poison
simModels <- list()

par(mfrow=c(3,3))
for (i in 1:9)
{
  nobs <- poison %>% nrow
  dataHlp$ySim <- lm_additive$fit + rnorm(nobs, sd = sigma)
  simModels[[i]] <- lm(ySim~Dose + Weight, dataHlp)
  plot(simModels[[i]], which = 2)
}

It seems that deviations of the size that we see in our real data may be expected even when normality is met. As such, all assumptions for linear regression seem to be valid.

7.3 Inference

We then inspect the results.

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

7.4 Interpretation of model parameters

We see that the effect of dose on survival time remains similar, however, it has become more significant after we have incorporated weight in our model. Indeed, from the data exploration, we learned that weight is associated with survival.

  1. As such, by incorporating weight in our model, we are able to explain a larger part of the variability in the response variable survival time. As a consequence, the variability in the residuals of the model will decrease, which in turn will lead to smaller standard error estimates for the different parameter estimates in the model.

  2. From the data exploration, we additionally found that the dojo-fish weights were not uniform across the different poison dosages due to the randomisation. Therefore, we can estimate the effect between dose and survival time better while accounting for the weight.

In this model, the effect of Dose can be interpreted as the average change in the log2 survival time between two groups of dojofish with the same weight that are exposed to a poison dosage that differs 1 mg/L. In symbols:

\[\begin{eqnarray} \hat{\mu_1}&=& \beta_0 + \beta_d x_{1d} + \beta_g x_g \text{ (average log2-survival time for dose 1 for a certain weight)}\\ \hat{\mu_2}&=& \beta_0 + \beta_d x_{2d} + \beta_g x_g \text{ (average log2-survival time for dose 2 for that same weight)}\\ \hat \mu_2- \hat \mu_1&=&\beta_0 + \beta_d x_{2d} + \beta_g x_g - (\beta_0 + \beta_d x_{1d} + \beta_g x_g) \text{ (difference in average log2-survival time between dose 2 en dose 1)}\\ \hat \mu_2-\hat \mu_1&=&\beta_d (x_{2d}-x_{1d}) \end{eqnarray}\]

7.5 Conclusion

2^(lm_additive$coef)
## (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

The dose of the poison has an extremely significant effect on the log2 transformed survival time of dojofish (p-value = 1e-05). 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 weight on the survival time of dojofish is also extremely significant (p-value = 5e-04). The geometric average of the survival time of a dojofish that weighs 1 gram more than another dojofish is approximately twice as long (factor = \(2^{ \beta_g}\)= 2.1, 95% BI [1.4,3.1]).

7.6 Remarks

In the lm_additive model, we included only a main effect for weight. However, there could also be an interaction effect between weight and dose. An interaction between weight and dose implies that the dose effect on the survival time changes according to the weight of the fish.

LS0tCnRpdGxlOiAiRXhlcmNpc2UgOC4xOiBBZGRpdGl2ZSBsaW5lYXIgbW9kZWwgb24gdGhlIHBvaXNvbiBkYXRhc2V0IC0gc29sdXRpb24iICAgCmF1dGhvcjogIkxpZXZlbiBDbGVtZW50IGFuZCBKZXJvZW4gR2lsaXMiCmRhdGU6ICJzdGF0T21pY3MsIEdoZW50IFVuaXZlcnNpdHkgKGh0dHBzOi8vc3RhdG9taWNzLmdpdGh1Yi5pbykiICAKb3V0cHV0OgogICAgaHRtbF9kb2N1bWVudDoKICAgICAgY29kZV9kb3dubG9hZDogdHJ1ZSAgICAKICAgICAgdGhlbWU6IGNvc21vCiAgICAgIHRvYzogdHJ1ZQogICAgICB0b2NfZmxvYXQ6IHRydWUKICAgICAgaGlnaGxpZ2h0OiB0YW5nbwogICAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUKLS0tCgojIFRoZSBwb2lzb24gZGF0YXNldAoKSW4gdGhpcyBleHBlcmltZW50LCA5NiBmaXNoIChkb2pvZmlzaCwgZ29sZGZpc2ggYW5kIHplYnJhZmlzaCkKd2VyZSBwbGFjZWQgc2VwYXJhdGVseSBpbiBhIHRhbmsgd2l0aCB0d28gbGl0ZXJzIG9mIHdhdGVyIGFuZAphIGNlcnRhaW4gZG9zZSAoaW4gbWcpIG9mIHRoZSBwb2lzb24gRUktNDMsMDY0LiBUaGUgcmVzaXN0YW5jZQpvZiB0aGUgZmlzaCBhZ2FpbnN0IHRoZSBwb2lzb24gd2FzIG1lYXN1cmVkIGFzIHRoZSBhbW91bnQgb2YKbWludXRlcyB0aGUgZmlzaCBzdXJ2aXZlZCBhZnRlciBiZWluZyBleHBvc2VkIHRvIHRoZSBwb2lzb24gKGBTdXJ2X3RpbWVgLCBpbgptaW51dGVzKS4gQWRkaXRpb25hbGx5LCB0aGUgd2VpZ2h0IG9mIGVhY2ggZmlzaCB3YXMgbWVhc3VyZWQuCgojIEdvYWwKCkluIHRoaXMgdHV0b3JpYWwgc2Vzc2lvbiB3ZSB3aWxsIGZvY3VzIG9uICoqRG9qb2Zpc2gqKiwgYW5kIHdlIHdpbGwgbW9kZWwgdGhlIApzdXJ2aXZhbCB0aW1lIGluIGZ1bmN0aW9uIG9mIHRoZSBwb2lzb24gZG9zZSB3aGlsZSBjb3JyZWN0aW5nIGZvciB0aGUgd2VpZ2h0IG9mIAp0aGUgZmlzaC4gCgoxLiBXZSB3aWxsIGZpcnN0IGFuYWx5c2UgdGhlIHN1cnZpdmFsIGRhdGEgYnkgb25seSBjb25zaWRlcmluZyB0aGUgZG9zZSBhcyBhbgpleHBsYW5hdG9yeSB2YXJpYWJsZSBmb3Igc3Vydml2YWwgdGltZQoKMi4gTmV4dCB3ZSB3aWxsIG1vZGVsIHRoZSBzdXJ2aXZhbCBkYXRhIHdpdGggYW5kIGFkZGl0aXZlIG1vZGVsIGZvciBkb3NlIGFuZCAKd2VpZ2h0CgpMb2FkIGxpYnJhcmllcwoKYGBge3IsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGdncGxvdDIpCiNpbnN0YWxsLnBhY2thZ2VzKCJHR2FsbHkiKQpsaWJyYXJ5KEdHYWxseSkKbGlicmFyeShjYXIpCmxpYnJhcnkobXVsdGNvbXApCmBgYAoKIyBJbXBvcnQgdGhlIGRhdGEKCmBgYHtyLCBtZXNzYWdlPUZBTFNFfQpwb2lzb24gPC0gcmVhZF9jc3YoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9zdGF0T21pY3MvUFNMUzIxL2RhdGEvcG9pc29uLmNzdiIpCmBgYAoKIyBEYXRhIHRpZHlpbmcKCldlIGNhbiBzZWUgYSBjb3VwbGUgb2YgdGhpbmdzIGluIHRoZSBkYXRhIHRoYXQgY2FuIGJlIGltcHJvdmVkOgoKMS4gQ2FwaXRhbGlzZSB0aGUgZmlzdCBjb2x1bW4gbmFtZQoKMy4gU2V0IHRoZSBTcGVjaWVzIGNvbHVtbiBhcyBhIGZhY3RvcgoKNC4gQ2hhbmdlIHRoZSBzcGVjaWVzIGZhY3RvciBsZXZlbHMgZnJvbSAiMCIgdG8gRG9qb2Zpc2guIAoqSGludCo6IHVzZSB0aGUgYGZjdF9yZWNvZGVgIGZ1bmN0aW9uLgoKNC4gSW4gdGhlIHByZXZpb3VzIGFuYWx5c2lzIG9uIHRoaXMgZGF0YXNldCAKKGBTaW1wbGUgbGluZWFyIHJlZ3Jlc3Npb24gc2Vzc2lvbmApLCB3ZSBwZXJmb3JtZWQgYSBsb2ctdHJhbnNmb3JtYXRpb24gb24gdGhlIApyZXNwb25zZSB2YXJpYWJsZSBgU3Vydl90aW1lYCB0byBtZWV0IHRoZSBub3JtYWxpdHkgYW5kIGhvbW9zY2VkYXN0aWNpdHkgCmFzc3VtcHRpb25zIG9mIHRoZSBsaW5lYXIgbW9kZWwuIEhlcmUsIHdlIHdpbGwgaW1tZWRpYXRlbHkgd29yayB3aXRoIApsb2ctdHJhbnNmb3JtZWQgc3Vydml2YWwgdGltZXM7IHN0b3JlIHRoZXNlIGluIHRoZSBuZXcgIHZhcmlhYmxlIGBsb2cyU3Vydl90aW1lYAphbmQgcmVtb3ZlIHRoZSBub24tdHJhbnNmb3JtZWQgdmFsdWVzLgoKNS4gU3Vic2V0IHRoZSBkYXRhIHRvIG9ubHkgcmV0YWluICoqRG9qb2Zpc2gqKi4KCmBgYHtyfQpwb2lzb24gPC0gcG9pc29uICU+JQogIHJlbmFtZSgiU3BlY2llcyIgPSAic3BlY2llcyIpICU+JQogIG11dGF0ZShTcGVjaWVzID0gYXMuZmFjdG9yKFNwZWNpZXMpKSAlPiUKICBtdXRhdGUoU3BlY2llcyA9IGZjdF9yZWNvZGUoU3BlY2llcywgRG9qb2Zpc2ggPSAiMCIsIEdvbGRmaXNoID0gIjEiLCBaZWJyYWZpc2ggPSAiMiIpKSAlPiUKICBtdXRhdGUobG9nMlN1cnZfdGltZSA9IFN1cnZfdGltZSAlPiUgbG9nMikgJT4lCiAgZHBseXI6OnNlbGVjdCgtU3Vydl90aW1lKSAlPiUKICBmaWx0ZXIoU3BlY2llcz09IkRvam9maXNoIikKCnBvaXNvbgpgYGAKCiMgRGF0YSBleHBsb3JhdGlvbgoKUHJpb3IgdG8gdGhlIGFuYWx5c2lzLCB3ZSBzaG91bGQgZXhwbG9yZSBvdXIgZGF0YS4gVG8gc3RhcnQgb3VyIGRhdGEgCmV4cGxvcmF0aW9uLCB3ZSB3aWxsIG1ha2UgdXNlIG9mIHRoZSBgZ2dwYWlyc2AgZnVuY3Rpb24gb2YgdGhlCmBHR2FsbHlgIFIgcGFja2FnZS4gVGhpcyBmdW5jdGlvbiB3aWxsIGdlbmVyYXRlIGEgdmlzdWFsaXphdGlvbiBjb250YWluaW5nCm11bHRpcGxlIHBhbmVscywgd2hpY2ggZGlzcGxheSAoMSkgdW5pdmFyaWF0ZSBwbG90cyBvZiB0aGUgZGlmZmVyZW50IHZhcmlhYmxlcwppbiBvdXIgZGF0YXNldCwgKDIpIGJpdmFyaWF0ZSBwbG90cyBhbmQgKDMpIGNvcnJlbGF0aW9uIGNvZWZmaWNpZW50cyBiZXR3ZWVuIAp0aGUgZGlmZmVyZW50IHZhcmlhYmxlcy4KCmBgYHtyLCBtZXNzYWdlPUZBTFNFfQpwb2lzb24gJT4lCiAgZ2dwYWlycyArIHRoZW1lX2J3KCkKYGBgCgpCYXNlZCBvbiB0aGVzZSBwbG90cywgd2Ugb2JzZXJ2ZSB0aGF0OgoKLSBUaGUgc3Vydml2YWwgdGltZSBzZWVtcyB0byBiZSBhc3NvY2lhdGVkIHdpdGggZG9zZSBhbmQgZmlzaCB3ZWlnaHQuCgpGcm9tIHRoZSB0dXRvcmlhbCBvZiBINiB3ZSBoYXZlIHNlZW4gdGhhdCB0aGUgZmlzaCB3ZWlnaHRzIHdlcmUgbm90IG5pY2VseSAKdW5pZm9ybSBhY3Jvc3MgdGhlIGRpZmZlcmVudCBwb2lzb24gZG9zYWdlcyBkdWUgdG8gdGhlIHJhbmRvbWlzYXRpb24uCgpgYGB7ciwgbWVzc2FnZT1GQUxTRX0KcG9pc29uICU+JQogIGdncGxvdChhZXMoeCA9IERvc2UsIHkgPSBXZWlnaHQpKSArCiAgZ2VvbV9wb2ludCgpICsKICBnZ3RpdGxlKCJBc3NvY2lhdGlvbiBiZXR3ZWVuIGRvc2UgYW5kIHdlaWdodCIpICsKICB0aGVtZV9idygpICsgCiAgc3RhdF9zdW1tYXJ5KAogICAgZ2VvbSA9ICJwb2ludCIsCiAgICBmdW4gPSAibWVhbiIsCiAgICBjb2wgPSAiYmxhY2siLAogICAgc2l6ZSA9IDQsCiAgICBzaGFwZSA9IDI0LAogICAgZmlsbCA9ICJyZWQiKQpgYGAKCiMgU2ltcGxlIGxpbmVhciByZWdyZXNzaW9uIAoKVGhpcyBpcyB0aGUgc2FtZSByZWdyZXNzaW9uIG1vZGVsIHRoYXQgd2UgaGF2ZSBhbHJlYWR5IGZpdCBpbiB0aGUgZXhlcmNpc2UgCnNlc3Npb24gb24gc2ltcGxlIGxpbmVhciByZWdyZXNzaW9uLCB3aXRoIGBEb3NlYCBhcyB0aGUgb25seSBleHBsYW5hdG9yeSAKdmFyaWFibGUgZm9yIGBsb2cyU3Vydl90aW1lYC4KCmBgYHtyfQojIGZpdCBhIGxpbmVhciByZWdyZXNzaW9uIG1vZGVsIHdpdGggJ1N1cnZfdGltZScgYXMgcmVzcG9uc2UgdmFyaWFibGUgYW5kCiMgJ0Rvc2UnIGFzIHByZWRpY3RvciB2YXJpYWJlbGUKbG1fc2ltcGxlIDwtIGxtKGxvZzJTdXJ2X3RpbWUgfiBEb3NlLCBkYXRhPXBvaXNvbikgCgojIyBkaXNwbGF5IHRoZSBkaWFnbm9zdGljIHBsb3RzIG9mIHRoZSBtb2RlbApwYXIobWZyb3c9YygyLDIpKQpwbG90KGxtX3NpbXBsZSkKYGBgCgoxLiBUaGUgaW5kZXBlbmRlbmNlIGFzc3VtcHRpb24gd2FzICoqbWV0KiogYmVjYXVzZSB0aGUgZmlzaCB3ZXJlIHJhbmRvbWl6ZWQgdG8gCnRoZSBkb3NlLgoyLiBUaGUgbGluZWFyaXR5IGFzc3VtcHRpb24gaXMgKiptZXQqKi4KMy4gVGhlIG5vcm1hbGl0eSBhc3N1bXB0aW9uIGlzICoqbWV0KiouCjQuIFRoZSBob21vc2NlZGFzdGljaXR5IGFzc3VtcHRpb24gaXMgKiptZXQqKi4KCkZpbmFsbHksIHdlIGxvb2sgYXQgdGhlIG91dHB1dCBvZiB0aGUgbW9kZWwuCgpgYGB7cn0Kc3VtbWFyeShsbV9zaW1wbGUpCmBgYAoKT3IgZm9yIGFuIGludGVycHJldGF0aW9uIGF0IHRoZSBvcmlnaW5hbCBzY2FsZSAobWludXRlcyBpbiBzdGVhZCBvZiBsb2cyIAptaW51dGVzKToKCmBgYHtyfQoyXihsbV9zaW1wbGUkY29lZilbIkRvc2UiXQoyXihjb25maW50KGxtX3NpbXBsZSkpWzIsXQpgYGAKClRoZXJlIGlzIGEgdmVyeSBzaWduaWZpY2FudCBlZmZlY3Qgb2YgdGhlIHBvaXNvbiBvbiBzdXJ2aXZhbCBvZiBEb2pvZmlzaCAKKHA8IDAuMDAxKS4gRG9qb2Zpc2ggdGhhdCBhcmUgZXhwb3NlZCB0byBhIGhpZ2hlciBkb3NlIG9mIHRoZSBwb2lzb24gd2lsbCAKaGF2ZSBhIHN1cnZpdmFsIHRpbWUgdGhhdCBkZWNyZWFzZSBvbiBhdmVyYWdlIHdpdGggYSBmYWN0b3IgCmByIGxtX3NpbXBsZSRjb2VmWzJdICU+JSAyXi4gJT4lIHJvdW5kKC4sMilgIHBlciBncmFtIG9mIHBvaXNvbiB0aGF0IAppcyBhZGRlZCAoOTUlIENJIFtgciBjb25maW50KGxtX3NpbXBsZSlbMixdICU+JSAyXi4gJT4lIHJvdW5kKC4sMilgXSkuCgojIEFuYWx5c2lzIHdpdGggYWRkaXRpdmUgZWZmZWN0IGZvciB3ZWlnaHQKCiMjIE1vZGVsIHNwZWNpZmljYXRpb24KCkhlcmUsIHdlIHdpbGwgZXN0aW1hdGUgdGhlIGVmZmVjdCBvZiB0aGUgcG9pc29uIHdoaWxlIGNvcnJlY3RpbmcgZm9yIGB3ZWlnaHRgIAphbmQgd2Ugd2lsbCBhZGQgaXQgYXMgYW4gYWRkaXRpb25hbCBjb3ZhcmlhdGUgdG8gb3VyIGxpbmVhciByZWdyZXNzaW9uIG1vZGVsLCAKc3VjaCB0aGF0CgokJAp5X2k9XGJldGFfMCtcYmV0YV9kIHhfZCArIFxiZXRhX2cgeF9nICsgXGVwc2lsb25faSwKJCQKCndpdGggJFxlcHNpbG9uX2kgXHRleHR7IGkuaS5kLiB9IE4oMCxcc2lnbWFeMikkLgoKIyMgQXNzdW1wdGlvbnMKClRoZSBtb2RlbCB3aWxsIGFnYWluIGJlIGZpdCB0byBhbGxvdyBmb3IgYXNzZXNzaW5nIHRoZSBtb2RlbCBhc3N1bXB0aW9ucwoKYGBge3J9CmxtX2FkZGl0aXZlIDwtIGxtKGxvZzJTdXJ2X3RpbWUgfiBEb3NlICsgV2VpZ2h0LCBkYXRhID0gcG9pc29uKQpwYXIobWZyb3c9YygyLDIpKQpwbG90KGxtX2FkZGl0aXZlKQpgYGAKClRoZSBhc3N1bXB0aW9uIG9mIGluZGVwZW5kZW5jZSwgbGluZWFyaXR5IGFuZCBob21vc2NlZGFzdGljaXR5IGFyZSBtZXQuCgpUaGUgUVEtcGxvdCBzdWdnZXN0IHRoYXQgdGhlcmUgbWlnaHQgYmUgc29tZSBkZXZpYXRpb24gZnJvbSBub3JtYWxpdHkgaW4gdGhlIApsZWZ0IHRhaWwgb2YgdGhlLGRpc3RyaWJ1dGlvbi4gSG93ZXZlciwgd2hlbiB3ZSB3b3VsZCBzaW11bGF0ZSBkYXRhIHVuZGVyIHRoZSAKbm9ybWFsaXR5IGFzc3VtcHRpb24sIGl0IHNlZW1zIHRoYXQgZGV2aWF0aW9ucyBvZiB0aGlzIHNpemUgbWF5IGJlIGV4cGVjdGVkIHdoZW4Kbm9ybWFsaXR5IGlzIG1ldC4gV2Ugd2lsbCB1c2Ugc2ltdWxhdGlvbiB0byBhc3Nlc3MgaWYgd2UgY2FuIG9ic2VydmUgc2ltaWxhciAKcmVzaWR1YWwgcGxvdHMgaWYgYWxsIGFzc3VtcHRpb25zIGZvciB0aGUgbGluZWFyIG1vZGVsIGhvbGQuCgpgYGB7cn0Kc2V0LnNlZWQoMTAzMSkKc2lnbWEgPC0gbG1fYWRkaXRpdmUgJT4lIHNpZ21hIAoKZGF0YUhscCA8LSBwb2lzb24Kc2ltTW9kZWxzIDwtIGxpc3QoKQoKcGFyKG1mcm93PWMoMywzKSkKZm9yIChpIGluIDE6OSkKewogIG5vYnMgPC0gcG9pc29uICU+JSBucm93CiAgZGF0YUhscCR5U2ltIDwtIGxtX2FkZGl0aXZlJGZpdCArIHJub3JtKG5vYnMsIHNkID0gc2lnbWEpCiAgc2ltTW9kZWxzW1tpXV0gPC0gbG0oeVNpbX5Eb3NlICsgV2VpZ2h0LCBkYXRhSGxwKQogIHBsb3Qoc2ltTW9kZWxzW1tpXV0sIHdoaWNoID0gMikKfQpgYGAKSXQgc2VlbXMgdGhhdCBkZXZpYXRpb25zIG9mIHRoZSBzaXplIHRoYXQgd2Ugc2VlIGluIG91ciByZWFsIGRhdGEgbWF5IGJlIApleHBlY3RlZCBldmVuIHdoZW4gbm9ybWFsaXR5IGlzIG1ldC4gQXMgc3VjaCwgYWxsIGFzc3VtcHRpb25zIGZvciBsaW5lYXIgCnJlZ3Jlc3Npb24gc2VlbSB0byBiZSB2YWxpZC4KCiMjIEluZmVyZW5jZQoKV2UgdGhlbiBpbnNwZWN0IHRoZSByZXN1bHRzLgoKYGBge3J9CnN1bW1hcnkobG1fYWRkaXRpdmUpCmBgYAoKIyMgSW50ZXJwcmV0YXRpb24gb2YgbW9kZWwgcGFyYW1ldGVycwoKV2Ugc2VlIHRoYXQgdGhlIGVmZmVjdCBvZiBkb3NlIG9uIHN1cnZpdmFsIHRpbWUgcmVtYWlucyBzaW1pbGFyLCBob3dldmVyLCBpdCAKaGFzIGJlY29tZSBtb3JlIHNpZ25pZmljYW50IGFmdGVyIHdlIGhhdmUgaW5jb3Jwb3JhdGVkIHdlaWdodCBpbiBvdXIgbW9kZWwuIApJbmRlZWQsIGZyb20gdGhlIGRhdGEgZXhwbG9yYXRpb24sIHdlIGxlYXJuZWQgdGhhdCB3ZWlnaHQgaXMgYXNzb2NpYXRlZCB3aXRoIApzdXJ2aXZhbC4gCgoxLiBBcyBzdWNoLCBieSBpbmNvcnBvcmF0aW5nIHdlaWdodCBpbiBvdXIgbW9kZWwsIHdlIGFyZSBhYmxlIHRvCmV4cGxhaW4gYSBsYXJnZXIgcGFydCBvZiB0aGUgdmFyaWFiaWxpdHkgaW4gdGhlIHJlc3BvbnNlIHZhcmlhYmxlIHN1cnZpdmFsIHRpbWUuCkFzIGEgY29uc2VxdWVuY2UsIHRoZSB2YXJpYWJpbGl0eSBpbiB0aGUgcmVzaWR1YWxzIG9mIHRoZSBtb2RlbCB3aWxsIGRlY3JlYXNlLAp3aGljaCBpbiB0dXJuIHdpbGwgbGVhZCB0byBzbWFsbGVyIHN0YW5kYXJkIGVycm9yIGVzdGltYXRlcyBmb3IgdGhlIGRpZmZlcmVudApwYXJhbWV0ZXIgZXN0aW1hdGVzIGluIHRoZSBtb2RlbC4KCjIuIEZyb20gdGhlIGRhdGEgZXhwbG9yYXRpb24sIHdlIGFkZGl0aW9uYWxseSBmb3VuZCB0aGF0IHRoZSBkb2pvLWZpc2ggd2VpZ2h0cwp3ZXJlIG5vdCB1bmlmb3JtIGFjcm9zcyB0aGUgZGlmZmVyZW50IHBvaXNvbiBkb3NhZ2VzIGR1ZSB0byB0aGUgcmFuZG9taXNhdGlvbi4gClRoZXJlZm9yZSwgd2UgY2FuIGVzdGltYXRlIHRoZSBlZmZlY3QgYmV0d2VlbiBkb3NlIGFuZCBzdXJ2aXZhbCB0aW1lIGJldHRlciAKd2hpbGUgYWNjb3VudGluZyBmb3IgdGhlIHdlaWdodC4KCkluIHRoaXMgbW9kZWwsIHRoZSBlZmZlY3Qgb2YgYERvc2VgIGNhbiBiZSBpbnRlcnByZXRlZCBhcyB0aGUgYXZlcmFnZSBjaGFuZ2UgaW4KdGhlIGxvZzIgc3Vydml2YWwgdGltZSBiZXR3ZWVuIHR3byBncm91cHMgb2YgZG9qb2Zpc2ggKip3aXRoIHRoZSBzYW1lIHdlaWdodCoqIAp0aGF0IGFyZSBleHBvc2VkIHRvIGEgcG9pc29uIGRvc2FnZSB0aGF0IGRpZmZlcnMgMSBtZy9MLiBJbiBzeW1ib2xzOgoKXGJlZ2lue2VxbmFycmF5fQpcaGF0e1xtdV8xfSY9JiBcYmV0YV8wICsgXGJldGFfZCB4X3sxZH0gKyBcYmV0YV9nIHhfZyBcdGV4dHsgKGF2ZXJhZ2UgbG9nMi1zdXJ2aXZhbCB0aW1lIGZvciBkb3NlIDEgZm9yIGEgY2VydGFpbiB3ZWlnaHQpfVxcClxoYXR7XG11XzJ9Jj0mIFxiZXRhXzAgKyBcYmV0YV9kIHhfezJkfSArIFxiZXRhX2cgeF9nIFx0ZXh0eyAoYXZlcmFnZSBsb2cyLXN1cnZpdmFsIHRpbWUgZm9yIGRvc2UgMiBmb3IgdGhhdCBzYW1lIHdlaWdodCl9XFwKXGhhdCBcbXVfMi0gXGhhdCBcbXVfMSY9JlxiZXRhXzAgKyBcYmV0YV9kIHhfezJkfSArIFxiZXRhX2cgeF9nIC0gKFxiZXRhXzAgKyBcYmV0YV9kIHhfezFkfSArIFxiZXRhX2cgeF9nKSBcdGV4dHsgKGRpZmZlcmVuY2UgaW4gYXZlcmFnZSBsb2cyLXN1cnZpdmFsIHRpbWUgYmV0d2VlbiBkb3NlIDIgZW4gZG9zZSAxKX1cXCAKXGhhdCBcbXVfMi1caGF0IFxtdV8xJj0mXGJldGFfZCAoeF97MmR9LXhfezFkfSkKXGVuZHtlcW5hcnJheX0KCiMjIENvbmNsdXNpb24KCmBgYHtyfQoyXihsbV9hZGRpdGl2ZSRjb2VmKQoyXihjb25maW50KGxtX2FkZGl0aXZlKSkKYGBgCgpUaGUgZG9zZSBvZiB0aGUgcG9pc29uIGhhcyBhbiBleHRyZW1lbHkgc2lnbmlmaWNhbnQgZWZmZWN0IG9uIHRoZSBsb2cyCnRyYW5zZm9ybWVkIHN1cnZpdmFsIHRpbWUgb2YgZG9qb2Zpc2ggCihwLXZhbHVlID0gYHIgZm9ybWF0KHN1bW1hcnkobG1fYWRkaXRpdmUpJGNvZWZmaWNpZW50c1syLDRdLGRpZ2l0cz0xKWApLiBUaGUgCmdlb21ldHJpYyBhdmVyYWdlIG9mIHRoZSBzdXJ2aXZhbCB0aW1lIGZvciBkb2pvZmlzaCB0aGF0IGFyZSBleHBvc2VkIHRvIGEgCnBvaXNvbiBkb3NlIHRoYXQgaXMgMW1nL0wgbGFyZ2VyIGlzIGFwcHJveGltYXRlbHkgaGFsdmVkIChmYWN0b3IgPSAkMl57XGJldGFfZH09JCBgciBmb3JtYXQoMl4obG1fYWRkaXRpdmUkY29lZlsiRG9zZSJdKSxkaWdpdHM9MilgKSAuCgpUaGUgZWZmZWN0IG9mIHdlaWdodCBvbiB0aGUgc3Vydml2YWwgdGltZSBvZiBkb2pvZmlzaCBpcyBhbHNvIGV4dHJlbWVseSAKc2lnbmlmaWNhbnQgCihwLXZhbHVlID0gYHIgZm9ybWF0KHN1bW1hcnkobG1fYWRkaXRpdmUpJGNvZWZmaWNpZW50c1szLDRdLGRpZ2l0cz0xKWApLiBUaGUKZ2VvbWV0cmljIGF2ZXJhZ2Ugb2YgdGhlIHN1cnZpdmFsIHRpbWUgb2YgYSBkb2pvZmlzaCB0aGF0IHdlaWdocyAxIGdyYW0gbW9yZSAKdGhhbiBhbm90aGVyIGRvam9maXNoIGlzIGFwcHJveGltYXRlbHkgdHdpY2UgYXMgbG9uZyAKKGZhY3RvciA9ICQyXnsgXGJldGFfZ30kPSBgciBmb3JtYXQoMl4obG1fYWRkaXRpdmUkY29lZlsiV2VpZ2h0Il0pLGRpZ2l0cz0yKWAsIAo5NSUgQkkgW2ByIHBhc3RlKGZvcm1hdCgyXihjb25maW50KGxtX2FkZGl0aXZlKVsiV2VpZ2h0IixdKSxkaWdpdHM9MiksY29sbGFwc2U9IiwiKWBdKS4KCiMjIFJlbWFya3MKCkluIHRoZSBgbG1fYWRkaXRpdmVgIG1vZGVsLCB3ZSBpbmNsdWRlZCBvbmx5IGEgKm1haW4gZWZmZWN0KiBmb3Igd2VpZ2h0LiAKSG93ZXZlciwgdGhlcmUgY291bGQgYWxzbyBiZSBhbiAqaW50ZXJhY3Rpb24gZWZmZWN0KiBiZXR3ZWVuIHdlaWdodCBhbmQKZG9zZS4gQW4gaW50ZXJhY3Rpb24gYmV0d2VlbiB3ZWlnaHQgYW5kIGRvc2UgaW1wbGllcyB0aGF0IHRoZSBkb3NlIGVmZmVjdCBvbiAKdGhlIHN1cnZpdmFsIHRpbWUgY2hhbmdlcyBhY2NvcmRpbmcgdG8gdGhlIHdlaWdodCBvZiB0aGUgZmlzaC4K