knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
#remotes::install_github("PengSU517/robcovsel") #remotes::install_github("PengSU517/shootings") !!!!!!!!!!!!!! #This shootings package is not my original work. The functions in this package were forked from https://github.com/ineswilms/sparse-shooting-S. I constructed a package of those functions to make them more convenient to use. library(robcovsel) #library(shootings)
gen = genevar(p = 10, e = 0.1) x = gen$x y = gen$y
system.time({fit1 = covlasso(x,y,cor.method = "gaussrank",scale.method = "qn")}) fit1$betahat
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.