Answer:
a) > x<-c(1,2,3,4,5)
> y<-c(1.9,3.5,3.7,5.1,6)
> linearmodel<-lm(y~x)
And the output is given by:
> linearmodel
Call:
lm(formula = y ~ x)
Coefficients:
(Intercept) x
1.10 0.98
b) 
And if we compare this with the general model 
We see that the slope is m= 0.98 and the intercept b = 1.10
Explanation:
Part a
For this case we have the following data:
x: 1,2,3,4,5
y: 1.9,3.5,3.7,5.1, 6
For this case we can use the following R code:
> x<-c(1,2,3,4,5)
> y<-c(1.9,3.5,3.7,5.1,6)
> linearmodel<-lm(y~x)
And the output is given by:
> linearmodel
Call:
lm(formula = y ~ x)
Coefficients:
(Intercept) x
1.10 0.98
Part b
For this case we have the following trend equation given:

And if we compare this with the general model 
We see that the slope is m= 0.98 and the intercept b = 1.10
Dark energy is a theoretical repulsive energy that causes the acceleration to the expansion of the universe. Among the choices, the nearest answer would be D. Dark energy can also be defined as a new form of energy, that is a dynamic field that fills up space but has an effect opposite to that of normal energy.
The movements of the tectonic plates
The best position for the person would be outside, under a clear sky, standing up. He should do it sometime between sunset and sunrise, from a day before until a day after the moment of Full Moon.