Module 7 Assignment
Daniel Tafmizi Lis 4273 Dr. Ajani February 23, 2024 Module 7 Assignment Question 1) x <- c(16, 17, 13, 18, 12, 14, 19, 11, 11, 10) y <- c(63, 81, 56, 91, 47, 57, 76, 72, 62, 48) Y = a + bX +e 1.1 Define the relationship model between the predictor and the response variable: model <- lm(y~x) R equation for x,y relationship. Y is the target, x is the predictor Relationship Model : Y = 19.206 + 3.269X, RSE =10.48 the relationship has a positive correlation 1.2 Calculate the coefficients? summary(model) gives information about the relationship model regression coefficient = 3.269, intercept coefficient = 19.206 question 2) discharge <- c(3.600,1.800,3.333,2.283,4.533,2.883) waiting <- c(79,54,74,62,85,55) visit <- data.frame(discharge, waiting) model2 <- lm(discharge ~ waiting, data=visit) summary(model2) Relationship Model : Y= -1.53317 + 0.06756X, RSE = 0.4724, the relationship has a positive correlation coeffs = coefficients(model2); co...