ab_testing1.csv

# Load the Data
data <- read.csv("/cloud/project/ab_testing1.csv")

# Simple regression model to see the effect of ads on purchases
model <- lm(Purchase ~ Ads, data = data)

# View of the summary of the model
summary(model)

## 
## Call:
## lm(formula = Purchase ~ Ads, data = data)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -72.412 -33.412  -5.412  20.806 107.697 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)   64.194     11.959   5.368 1.14e-05 ***
## Ads           11.109      8.684   1.279    0.212    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 40.6 on 27 degrees of freedom
## Multiple R-squared:  0.05714,    Adjusted R-squared:  0.02222 
## F-statistic: 1.636 on 1 and 27 DF,  p-value: 0.2117