Nothing

```
GQR = function(x,y){
if(nrow(x)!=nrow(y)){
stop("'x' and 'y' must have same rows number.")
}
stopifnot(is.numeric(x),is.numeric(y))
Q = householder(y)$Q
S = householder(y)$R
W = RQ( t(Q) %*% x )$Q
R = RQ( t(Q) %*% x )$R
list("Let Q,W orthogonal matrices and R,S upper trapezoidal matrices, it follows A^T=QR and B^T=QSW.",
"Q"=Q,
"R"=R,
"W"=W,
"S"=S)
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.