Nothing

```
getOut_loocv <- function(model){
y_obs <- model@sOut
R <- tcrossprod(model@preMats$L)/model@kern@varHyp + diag(model@nugget, nrow = model@n.tr, ncol = model@n.tr)
Rinv <- solve(R)
y_pre <- y_obs - diag(Rinv)^(-1) * Rinv %*% y_obs
return(y_pre)
}
```

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