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")) # FUNCTION <- get("FUNCTION",envir=asNamespace("PACKAGE"))
#--- deactivate on Solaris:
# if(!grepl('SunOS',Sys.info()['sysname'])){}
#--- Main function ------------------------------------------------------------- #--- Main function -------------------------------------------------------------
#' @export #' @export
...@@ -81,12 +84,13 @@ ...@@ -81,12 +84,13 @@
#' \code{\link{cv.joinet}}, vignette #' \code{\link{cv.joinet}}, vignette
#' #'
#' @examples #' @examples
#' if(!grepl('SunOS',Sys.info()['sysname'])){ #' #if(!grepl('SunOS',Sys.info()['sysname'])){
#' set.seed(1)
#' n <- 50; p <- 100; q <- 3 #' n <- 50; p <- 100; q <- 3
#' X <- matrix(rnorm(n*p),nrow=n,ncol=p) #' X <- matrix(rnorm(n*p),nrow=n,ncol=p)
#' Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5]))) #' Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5])))
#' object <- joinet(Y=Y,X=X) #' object <- joinet(Y=Y,X=X)
#' } #' #}
#' #'
#' \dontrun{ #' \dontrun{
#' browseVignettes("joinet") # further examples} #' browseVignettes("joinet") # further examples}
......
...@@ -4,5 +4,5 @@ pkgdown_sha: ~ ...@@ -4,5 +4,5 @@ pkgdown_sha: ~
articles: articles:
article: article.html article: article.html
joinet: joinet.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}), ...@@ -73,12 +73,13 @@ lasso renders sparse models (\code{alpha}\eqn{=1}),
ridge renders dense models (\code{alpha}\eqn{=0}) ridge renders dense models (\code{alpha}\eqn{=0})
} }
\examples{ \examples{
if(!grepl('SunOS',Sys.info()['sysname'])){ #if(!grepl('SunOS',Sys.info()['sysname'])){
set.seed(1)
n <- 50; p <- 100; q <- 3 n <- 50; p <- 100; q <- 3
X <- matrix(rnorm(n*p),nrow=n,ncol=p) X <- matrix(rnorm(n*p),nrow=n,ncol=p)
Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5]))) Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5])))
object <- joinet(Y=Y,X=X) object <- joinet(Y=Y,X=X)
} #}
\dontrun{ \dontrun{
browseVignettes("joinet") # further examples} 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