Commit a0581d98 authored by Armin Rauschenberger's avatar Armin Rauschenberger
Browse files

vignette

parent fc6f427a
# import unexported functions:
#--- import unexported functions:
# FUNCTION <- get("FUNCTION",envir=asNamespace("PACKAGE"))
#--- deactivate on Solaris:
# if(!grepl('SunOS',Sys.info()['sysname'])){}
#--- Main function -------------------------------------------------------------
#' @export
......@@ -81,12 +84,13 @@
#' \code{\link{cv.joinet}}, vignette
#'
#' @examples
#' if(!grepl('SunOS',Sys.info()['sysname'])){
#' #if(!grepl('SunOS',Sys.info()['sysname'])){
#' set.seed(1)
#' 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])))
#' object <- joinet(Y=Y,X=X)
#' }
#' #}
#'
#' \dontrun{
#' browseVignettes("joinet") # further examples}
......
......@@ -4,5 +4,5 @@ pkgdown_sha: ~
articles:
article: article.html
joinet: joinet.html
last_built: 2020-11-02T17:32Z
last_built: 2020-11-03T06:31Z
......@@ -73,12 +73,13 @@ lasso renders sparse models (\code{alpha}\eqn{=1}),
ridge renders dense models (\code{alpha}\eqn{=0})
}
\examples{
if(!grepl('SunOS',Sys.info()['sysname'])){
#if(!grepl('SunOS',Sys.info()['sysname'])){
set.seed(1)
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])))
object <- joinet(Y=Y,X=X)
}
#}
\dontrun{
browseVignettes("joinet") # further examples}
......
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