Commit b61519b1 authored by Armin Rauschenberger's avatar Armin Rauschenberger

vignette

parent e5ae8bab
......@@ -489,10 +489,12 @@ print.joinet <- function(x,...){
#' and the intercept-only models (\code{none}).
#'
#' @examples
#' if(!grepl('SunOS',Sys.info()['sysname'])){
#' n <- 50; p <- 100; q <- 3
#' X <- matrix(rnorm(n*p),nrow=n,ncol=p)
#' Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5])))
#' cv.joinet(Y=Y,X=X)
#' }
#'
#' \dontrun{
#' # correlated features
......
......@@ -4,5 +4,5 @@ pkgdown_sha: ~
articles:
article: article.html
joinet: joinet.html
last_built: 2020-11-02T13:19Z
last_built: 2020-11-02T13:48Z
......@@ -87,10 +87,12 @@ and the intercept-only models (\code{none}).
Compares univariate and multivariate regression.
}
\examples{
if(!grepl('SunOS',Sys.info()['sysname'])){
n <- 50; p <- 100; q <- 3
X <- matrix(rnorm(n*p),nrow=n,ncol=p)
Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5])))
cv.joinet(Y=Y,X=X)
}
\dontrun{
# correlated features
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment