Given the Data Below, answer the following in R Studio Q1 Compare x1(predictor) and y1(response)

Q2 Compare x2(predictor) and y2(response)

Q3 Compare x3(predictor) and y3(response)

For each problem state all the violation assumptions. Assume significance level is 0.05

data <- data.frame

(x1 = c(6.90124270040542, 14.3773310957476, 19.2062071897089, 12.5874081579968, 0.16446222551167, 18.879187614657, 8.46578374970704, 17.2844461305067, 12.6010059937835, 5.566506520845, 1.98835947085172, 4.42397202830762, 12.9451441718265, 18.0136658577248, 11.5607971465215, 15.2765997173265, 7.592837465927, 3.81027921102941, 0.873119300231338, 18.4279950847849, 8.45442283898592, 19.7767648939043, 2.44914993178099, 3.92672220245004, 17.2494064318016, 14.2202351056039, 6.98944577481598, 1.98260928504169, 17.9156353557482, 3.73524777591228), y1 = c(-84.6878700743545, -159.910698017894, -233.060011783275, -140.300729891983, 9.81211774192801, -222.284498284283, -101.784697566319, -195.869100350674, -151.435920137135, -61.6393950133608, -30.7776347342598, -46.7575983432059, -156.480617333694, -207.531301198257, -132.547406228904, -178.666355823492, -84.4410547411179, -35.7108932328082, -16.7789476936264, -219.426695009075, -100.353822663635, -244.09762172103, -17.8377997400356, -37.5969848968999, -200.832896955187, -168.721902414646, -73.7846141032526, -18.3974619261238, -209.150055130841, -50.6994178859087), x2 = c(16.9875722797588, 14.9114381987602, 13.2351821055636, 10.7509613549337, 10.2429995452985, 19.2418094025925, 8.54540239088237, 19.7328221844509, 12.5482440041378, 5.66554544959217, 16.4360961643979, 11.6653833072633, 16.9327057339251, 3.21447633206844, 3.44168958254158, 1.30542651284486, 1.63148153107613, 5.03822792787105, 8.83219362702221, 8.22456588037312, 11.1167052295059, 0.33372700214386, 8.36812039837241, 14.93911950849, 7.49015074688941, 17.6159548852593, 18.8840283732861, 6.06975368224084, 3.50238145794719, 8.10853882227093), y2 = c(-73.8812758083771, -59.5829847150345, -53.3053442537095, -42.0046955551035, -43.2402207659126, -76.9805692833936, -37.790032070964, -81.3612887378037, -51.4772224656843, -24.4528953297089, -68.1149632402434, -49.6717315179404, -73.4774511924514, -15.0635740405045, -16.3336822052291, -7.65726089598717, -8.07206645763788, -22.4845825393644, -37.7025515368052, -35.8328537029311, -47.5624938181499, -3.23490800857544, -33.4126184926649, -63.8432194742525, -34.4456674252093, -75.2866002649906, -80.0308397852359, -26.7189372067006, -16.323820054867, -34.6013229157547), x3 = c(16.9875722797588, 14.9114381987602, 13.2351821055636, 10.7509613549337, 10.2429995452985, 19.2418094025925, 8.54540239088237, 19.7328221844509, 12.5482440041378, 5.66554544959217, 16.4360961643979, 11.6653833072633, 16.9327057339251, 3.21447633206844, 3.44168958254158, 1.30542651284486, 1.63148153107613, 5.03822792787105, 8.83219362702221, 8.22456588037312, 11.1167052295059, 0.33372700214386, 8.36812039837241, 14.93911950849, 7.49015074688941, 17.6159548852593, 18.8840283732861, 6.06975368224084, 3.50238145794719, 8.10853882227093), y3 = c(6.09083082061261, 18.2877587685362, 18.644547236152, 28.2363836066798, 36.3470945218578, -2.51730158738792, 42.3699078187346, -4.842603398487, 23.4342834781855, 39.9142840150744, 9.87070326786488, 18.9006415493786, 9.56303171999753, 55.5052771763876, 52.6611409680918, 68.5359500925988, 67.8253962397575, 43.2450830489397, 37.6198791591451, 41.7298255711794, 15.0472715282813, 57.6744707226754, 37.9204813642428, 9.50935535784814, 45.1931923506781, 6.00236747600142, -0.327394709922416, 47.9523018067702, 60.7174572544172, 42.5173963867128))