## Examples

Now we are ready to see how matrix algebra can be useful when analyzing data. We start with some simple examples and eventually arrive at the main one: how to write linear models with matrix algebra notation and solve the least squares problem.

#### The average

To compute the sample average and variance of our data, we use these formulas $\bar{Y}=\frac{1}{N} Y_i$ and $\mbox{var}(Y)=\frac{1}{N} \sum_{i=1}^N (Y_i - \bar{Y})^2$. We can represent these with matrix multiplication. First, define this $N \times 1$ matrix made just of 1s:

This implies that:

Note that we are multiplying by the scalar $1/N$. In R, we multiply matrix using %*%:

library(UsingR)
y <- father.son$sheight print(mean(y))  ## [1] 68.68407  N <- length(y) Y<- matrix(y,N,1) A <- matrix(1,N,1) barY=t(A)%*%Y / N print(barY)  ## [,1] ## [1,] 68.68407  #### The variance As we will see later, multiplying the transpose of a matrix with another is very common in statistics. In fact, it is so common that there is a function in R: barY=crossprod(A,Y) / N print(barY)  ## [,1] ## [1,] 68.68407  For the variance, we note that if: In R, if you only send one matrix into crossprod, it computes: $r^\top r$ so we can simply type: r <- y - barY crossprod(r)/N  ## [,1] ## [1,] 7.915196  Which is almost equivalent to: library(rafalib) popvar(y)  ## [1] 7.915196  #### Linear models Now we are ready to put all this to use. Let’s start with Galton’s example. If we define these matrices: Then we can write the model: as: or simply: which is a much simpler way to write it. The least squares equation becomes simpler as well since it is the following cross-product: So now we are ready to determine which values of $\beta$ minimize the above, which we can do using calculus to find the minimum. #### Advanced: Finding the minimum using calculus There are a series of rules that permit us to compute partial derivative equations in matrix notation. By equating the derivative to 0 and solving for the $\beta$, we will have our solution. The only one we need here tells us that the derivative of the above equation is: and we have our solution. We usually put a hat on the $\beta$ that solves this, $\hat{\beta}$ , as it is an estimate of the “real” $\beta$ that generated the data. Remember that the least squares are like a square (multiply something by itself) and that this formula is similar to the derivative of $f(x)^2$ being $2f(x)f\prime (x)$. #### Finding LSE in R Let’s see how it works in R: library(UsingR) x=father.son$fheight
y=father.son\$sheight
X <- cbind(1,x)
betahat <- solve( t(X) %*% X ) %*% t(X) %*% y
###or
betahat <- solve( crossprod(X) ) %*% crossprod( X, y )


Now we can see the results of this by computing the estimated $\hat{\beta}_0+\hat{\beta}_1 x$ for any value of $x$:

newx <- seq(min(x),max(x),len=100)
X <- cbind(1,newx)
fitted <- X%*%betahat
plot(x,y,xlab="Father's height",ylab="Son's height")
lines(newx,fitted,col=2)


This $\hat{\boldsymbol{\beta}}=(\mathbf{X}^\top \mathbf{X})^{-1} \mathbf{X}^\top \mathbf{Y}$ is one of the most widely used results in data analysis. One of the advantages of this approach is that we can use it in many different situations. For example, in our falling object problem:

set.seed(1)
g <- 9.8 #meters per second
n <- 25
tt <- seq(0,3.4,len=n) #time in secs, t is a base function
d <- 56.67  - 0.5*g*tt^2 + rnorm(n,sd=1)


Notice that we are using almost the same exact code:

X <- cbind(1,tt,tt^2)
y <- d
betahat <- solve(crossprod(X))%*%crossprod(X,y)
newtt <- seq(min(tt),max(tt),len=100)
X <- cbind(1,newtt,newtt^2)
fitted <- X%*%betahat
plot(tt,y,xlab="Time",ylab="Height")
lines(newtt,fitted,col=2)


And the resulting estimates are what we expect:

betahat

##          [,1]
##    56.5317368
## tt  0.5013565
##    -5.0386455


The Tower of Pisa is about 56 meters high. Since we are just dropping the object there is no initial velocity, and half the constant of gravity is 9.8/2=4.9 meters per second squared.

#### The lm Function

X <- cbind(tt,tt^2)
fit=lm(y~X)
summary(fit)

##
## Call:
## lm(formula = y ~ X)
##
## Residuals:
##     Min      1Q  Median      3Q     Max
## -2.5295 -0.4882  0.2537  0.6560  1.5455
##
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)  56.5317     0.5451 103.701   <2e-16 ***
## Xtt           0.5014     0.7426   0.675    0.507
## X            -5.0386     0.2110 -23.884   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.9822 on 22 degrees of freedom
## Multiple R-squared:  0.9973,	Adjusted R-squared:  0.997
## F-statistic:  4025 on 2 and 22 DF,  p-value: < 2.2e-16


Note that we obtain the same values as above.

#### Summary

We have shown how to write linear models using linear algebra. We are going to do this for several examples, many of which are related to designed experiments. We also demonstrated how to obtain least squares estimates. Nevertheless, it is important to remember that because $y$ is a random variable, these estimates are random as well. In a later section, we will learn how to compute standard error for these estimates and use this to perform inference.