week 12 dis

library(tinytex)

## Warning: package 'tinytex' was built under R version 4.3.3

data= read.csv("C:/Users/Chafiaa/Downloads/Tornado statistics.csv")
head(data)

##   Date Tornadoes Fatalities
## 1 1995      1162         37
## 2 1996      1205         26
## 3 1997      1149         72
## 4 1998      1448        128
## 5 1999      1421         94
## 6 2000       972         31

plot(Tornadoes ~ Fatalities, data)

model <- lm(Tornadoes ~ Fatalities, data)
summary(model)

## 
## Call:
## lm(formula = Tornadoes ~ Fatalities, data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -348.26 -124.20  -73.12  143.64  470.36 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 1128.6327    52.6392   21.44  < 2e-16 ***
## Fatalities     1.4140     0.4285    3.30  0.00281 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 225.4 on 26 degrees of freedom
##   (1 observation deleted due to missingness)
## Multiple R-squared:  0.2951, Adjusted R-squared:  0.268 
## F-statistic: 10.89 on 1 and 26 DF,  p-value: 0.002812

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

## from the value of the R^2=29% and the QQ plot , this model did not fit linear regression model