Beta.NA <- function(y,X)
{
des=X[!is.na(y),]
y1=y[!is.na(y)]
B <- solve(t(des)%*%des)%*%t(des)%*%y1
B
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.