Nothing
# Convenience function to find the minimum 2-norm
# solution of
# min_x ||b - A^T x||_2
# when A is upper triangular, but has the first q
# columns equal to zero.
Backsolve <- function(A,b,q) {
m = nrow(A)
n = ncol(A)
z = backsolve(A[Seq(1,n-q),Seq(q+1,n),drop=FALSE],
b[Seq(q+1,n)],transpose=TRUE)
return(c(z,rep(0,m-n+q)))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.