search for: 8.315e

I have two assignment problems... I have written this small code for regression with two regressors . n <- 50 x1 <- runif(n,1,10) x2 <- x1 + rnorm(n,0,0.5) plot(x1,x2) # x1 and x2 strongly correlated cor(x1,x2) y <- 3 + 0.5*x1 + 1.1*x2 + rnorm(n,0,2) intact.lm <- lm(y ~ x1 + x2) summary(intact.lm) anova(intact.lm) the questions are 1.The function summary() is convenient since

I have two assignment problems... I have written this small code for regression with two regressors . n <- 50 x1 <- runif(n,1,10) x2 <- x1 + rnorm(n,0,0.5) plot(x1,x2) # x1 and x2 strongly correlated cor(x1,x2) y <- 3 + 0.5*x1 + 1.1*x2 + rnorm(n,0,2) intact.lm <- lm(y ~ x1 + x2) summary(intact.lm) anova(intact.lm) the questions are 1.The function summary() is convenient since

I have a dataset like this: p aa index x y z sdx sdy sdz delta as ms cur sc 1 821p MET 1 -5.09688 32.8830 -5.857620 1.478200 1.73998 0.825778 13.7883 126.91 92.37 -0.1320180 111.0990 2 821p THR 2 -4.07357 28.6881 -4.838430 0.597674 1.37860 1.165780 13.7207 64.09 50.72 -0.0977129 98.5319 3 821p GLU 3 -5.86733 30.4759