script.R
1
2
3
4
5
6
7
8
9
10
11
# complete the function below
Rob_CI
<-
function
(
model
)
{
SEs
<-
???
lower
<-
model
$
coef
-
???
upper
<-
model
$
coef
+
???
return
(
cbind
(
"Lower"
=
lower
,
"Upper"
=
upper
)
)
}
# use Rob_CI() to compute the confidence intervals for
both model coefficients
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
R Console
1
>
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX