# Means calculated in part 1B mean_A <- 505.42 # TechPad before update mean_B <- 506.25 # ElectroTab before update mean_C <- 580.83 # TechPad after update mean_D <- 497.92 # ElectroTab after update # Calculate the differences delta_control <- mean_C - mean_A delta_treatment <- mean_D - mean_B # Calculate the Difference-in-Differences (DiD) DiD <- delta_treatment - delta_control # Round the result to two decimal places DiD <- round(DiD, 2) # Print the DiD value print(DiD)