Running examples in 'matrixpls-Ex.R' failed
The error most likely occurred in:

> ### Name: GSCA
> ### Title: Generalized structured component analysis (GSCA) weights
> ### Aliases: GSCA
> 
> ### ** Examples
> 
> if(!require(ASGSCA)){
+     print("This example requires the ASGSCA package from Bioconductor")
+ } else{
+ # Run the example from ASGSCA package using GSCA estimation
+ 
+ data(GenPhen)
+ W0 <- matrix(c(rep(1,2),rep(0,8),rep(1,2),rep(0,8),rep(1,3),rep(0,7),rep(1,2)),
+              nrow=8,ncol=4)
+ B0 <- matrix(c(rep(0,8),rep(1,2),rep(0,3),1,rep(0,2)),nrow=4,ncol=4)
+ 
+ # Set seed becayse ASGSCA uses random numbers as starting values 
+ set.seed(1)
+ 
+ GSCA.res <-GSCA(GenPhen,W0, B0,estim=TRUE,path.test=FALSE, 
+                  latent.names=c("Gene1","Gene2",
+                                 "Clinical pathway 1",
+                                 "Clinical pathway 2"))
+ 
+ # Setup matrixpls to estimate the same model. Note that ASGSCA places dependent
+ # variables on columns but matrixpls uses rows for dependent variables
+ 
+ inner <- t(B0)
+ formative <- t(W0)
+ reflective <- matrix(0,8,4)
+ 
+ colnames(formative) <- rownames(reflective) <- names(GenPhen)
+ 
+ colnames(inner) <- rownames(inner) <- 
+   rownames(formative) <- colnames(reflective) <-
+   c("Gene1","Gene2","Clinical pathway 1","Clinical pathway 2")
+ 
+ model <- list(inner = inner, 
+               reflective = reflective,
+               formative = formative)
+ 
+ # Estimate using alternating least squares
+ 
+ matrixpls.res1 <- matrixpls(cov(GenPhen),  model,
+                             outerEstim = outerEstim.gsca,
+                             innerEstim = innerEstim.gsca)
+ 
+ # Estimate using direct minimization of the estimation criterion
+ # Set the convergence criterion to be slightly stricter than normally
+ # to get indentical results
+ 
+ matrixpls.res2 <- matrixpls(cov(GenPhen),  model,
+                             weightFun = weightFun.optim,
+                             optimCrit = optimCrit.gsca,
+                             control = list(reltol = 1e-12))
+ 
+ # Compare the weights
+ 
+ do.call(cbind,lapply(list(ASGSCA =GSCA.res[["Weight"]],
+                           matrixpls_als = t(attr(matrixpls.res1,"W")),
+                           matrixpls_optim =t(attr(matrixpls.res2,"W"))),
+                      function(W) W[W!=0]))
+ 
+ 
+ # Check the criterion function values
+ 
+ optimCrit.gsca(matrixpls.res1)
+ optimCrit.gsca(matrixpls.res2)
+ 
+ }
Loading required package: ASGSCA
Error in namespaceExport(ns, exports) : 
  undefined exports: %s!=%, %s!==%, %s+%, %s<%, %s<=%, %s==%, %s===%, %s>%, %s>=%, %stri!=%, %stri!==%, %stri+%, %stri<%, %stri<=%, %stri==%, %stri===%, %stri>%, %stri>=%, stri_datetime_add<-, stri_sub<-, stri_subset<-, stri_subset_charclass<-, stri_subset_coll<-, stri_subset_fixed<-, stri_subset_regex<-, stri_c, stri_c_list, stri_cmp, stri_cmp_eq, stri_cmp_equiv, stri_cmp_ge, stri_cmp_gt, stri_cmp_le, stri_cmp_lt, stri_cmp_neq, stri_cmp_nequiv, stri_compare, stri_conv, stri_count, stri_count_boundaries, stri_count_charclass, stri_count_coll, stri_count_fixed, stri_count_regex, stri_count_words, stri_datetime_add, stri_datetime_create, stri_datetime_fields, stri_datetime_format, stri_datetime_fstr, stri_datetime_now, stri_datetime_parse, stri_datetime_symbols, stri_detect, stri_detect_charclass, stri_detect_coll, stri_detect_fixed, stri_detect_regex, stri_dup, stri_duplicated, stri_duplicated_any, stri_enc_detect, stri_enc_detect2, stri_enc_fromutf32, stri_enc_get, stri_enc_inf
Calls: matrixpls ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted