Adataset "women" in the datasets package in r gives the average heights (inches) and weights (pounds) for american women aged 30-39. use the dataset to answer the following questions.
fit a simple linear model weight=β0+β1*height 98jdqkvjtbajnlcvj5pzsla0ghcmvsiml2c jsffdto predict the weight using height and report the fitted line.
fit a polynomial model weight=β0+β1*height+β2*height2 velftksuqmccto predict the weight and report the fitted line.
draw a scatter plot of height and weight. add the fitted lines from problem 1 and 2, respectively.

Step-by-step explanation:

Suppose the dataset "women" has 2 numeric columns namely "heights" and "weights".

By using function lm(formula, data) we can calculate the weight for the linear model

linmod = lm(weights ~ heights, data = women)

summary(linmod)

Similarly for the polynomial model

polymod = lm(women$weights ~ women$heights + I(women$heights^2))

summary(polymod)

To plot the fitted lines, we would need to calculate their y-values

plot(women$heights, women$weights, pch=16, col='black)

lines(women$heights, predict(linmod), col='blue')

lines(women$heights, predict(polymod), col='red')

intensity of the vector is v= √37 ≈ 6.08 units and make angle ∡α ≈ 9.46° with east direction

step-by-step explanation:

required vector is consists of the two componentsvx= 2+4=6 units   and vy= 1 unit and vx ⊥ vywe will use pythagorian theorem to find intensity of the vector vv∧2 = vx∧2 + vy∧2 => v = √vx∧2 + vy∧2 = √6∧2 + 1∧2 = √36+1 = √37 ≈ 6.08 unitsthe angle ∡α between vector and east direction we wil find with tanαtanα = 1/6 => α = arc tanα = arc 1/6 => α ≈ 9.46°

hope this