# Calculates var(beta0hat)/sigma^2 for a straight line regression with 10 values of x
# The vector of x-values is the input to the program.

varbeta0hat <- function(x)
{
 a <- sum(x^2)
 v <- a/(10*a - (sum(x))^2)
 v
}