Displaying 1 result from an estimated 1 matches for "75309".
Did you mean:
7530
2003 Jun 26
1
Residual plotting
...r all,
So far i could do (in an informal way) to draw a Standardized Resisual plot
in the following way-
---------------------
>x <- c(104.1, 106.6, 105.5, 107.5, 109.6, 113.3, 115.5, 117.7, 119.9,
122.1, 124.3, 126.5, 128.2)
>y <- c(53732, 52912, 57005, 61354, 67682, 71602, 71961, 75309, 82931,
93310, 102161, 103068, 108927)
> beta1<-(n*sum(x*y)-sum(x)*sum(y))/(n*sum(x^2)-sum(x)^2)
> beta0<-sum(y)/n-beta1*sum(x)/n
> yhat<-beta0 + beta1*x
> error<-(y-yhat)
> se <- sqrt((sum(y^2)-beta0*sum(y)-beta1*sum(x*y))/(n-2))
> SE<-sqrt(sum(error^2)/(...