data <- read.csv(“Regression(Sheet3).csv”, skip = 23) colnames(data) <- c(“Variable”, “Coefficient”, “Std_Error”, “t_Stat”, “P_Value”, “Lower_95”, “Upper_95”, “Lower_95_2”, “Upper_95_2”) print(“Regression Coefficients and P-values:”) print(data_clean[, c(“Variable”, “Coefficient”, “P_Value”)])

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.