Nothing
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo=TRUE,eval=!grepl('SunOS',Sys.info()['sysname']))
set.seed(1)
## ----eval=FALSE---------------------------------------------------------------
# install.packages("joinet")
## ----eval=FALSE---------------------------------------------------------------
# #install.packages("devtools")
# devtools::install_github("rauschenberger/joinet")
## -----------------------------------------------------------------------------
library(joinet)
## ----eval=FALSE---------------------------------------------------------------
# ?joinet
# help(joinet)
# browseVignettes("joinet")
## -----------------------------------------------------------------------------
n <- 100
q <- 2
p <- 500
## -----------------------------------------------------------------------------
mu <- rep(0,times=p)
rho <- 0.90
Sigma <- rho^abs(col(diag(p))-row(diag(p)))
X <- MASS::mvrnorm(n=n,mu=mu,Sigma=Sigma)
## -----------------------------------------------------------------------------
pi <- 0.01
alpha <- 0
beta <- rbinom(n=p,size=1,prob=pi)
## ----results="hide"-----------------------------------------------------------
eta <- alpha + X %*% beta
eta <- 1.5*scale(eta)
family <- "gaussian"
if(family=="gaussian"){
mean <- eta
Y <- replicate(n=q,expr=rnorm(n=n,mean=mean))
}
if(family=="binomial"){
prob <- 1/(1+exp(-eta))
Y <- replicate(n=q,expr=rbinom(n=n,size=1,prob=prob))
}
if(family=="poisson"){
lambda <- exp(eta)
Y <- replicate(n=q,expr=rpois(n=n,lambda=lambda))
}
cor(Y)
## -----------------------------------------------------------------------------
object <- joinet(Y=Y,X=X,family=family)
## ----eval=FALSE---------------------------------------------------------------
# predict(object,newx=X)
#
# coef(object)
#
# weights(object)
## -----------------------------------------------------------------------------
cv.joinet(Y=Y,X=X,family=family)
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.