vignette

R/functions.R

@@ -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

docs/pkgdown.yml

@@ -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
 

man/cv.joinet.Rd

@@ -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