Nothing

```
pls_eigen <-
function(X,Y,a){
# Eigenvector method for PLS
X <- as.matrix(X)
Y <- as.matrix(Y)
P=eigen(t(X)%*%Y%*%t(Y)%*%X)$vectors[,1:a]
T=X%*%P
Q=eigen(t(Y)%*%X%*%t(X)%*%Y)$vectors[,1:a]
U=Y%*%Q
list(P=P,T=T,Q=Q,U=U)
}
```

**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.