Nothing
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
options(digits = 3)
## ----load_pkg, message=FALSE--------------------------------------------------
library(rags2ridges)
## ----createS------------------------------------------------------------------
p <- 6
n <- 20
X <- createS(n = n, p = p, dataset = TRUE)
head(X, n = 4) # Show 4 first of the n rows
## ----covML--------------------------------------------------------------------
S <- covML(X)
print(S)
## ----solveS-------------------------------------------------------------------
P <- solve(S)
print(P)
## ----solveS2, error=TRUE------------------------------------------------------
p <- 25
S2 <- createS(n = n, p = p) # Direct to S
P2 <- solve(S2)
## ----ridgeP-------------------------------------------------------------------
P2 <- ridgeP(S2, lambda = 1.17)
print(P2[1:7, 1:7]) # Showing only the 7 first cols and rows
## ----optPenalty.LOOCV---------------------------------------------------------
Y <- createS(n, p, dataset = TRUE)
opt <- optPenalty.kCVauto(Y, lambdaMin = 0.001, lambdaMax = 100)
str(opt)
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.