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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: relabel
> ### Title: Relabel Factor Loadings from MCMC output
> ### Aliases: relabel relabel.matrix relabel.default
> ### Keywords: manip
> 
> ### ** Examples
> 
> 
> n <- 1000
> p <- 8
> set.seed(1)
> mu <- as.numeric(t(cbind(
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 8, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE))))
Error in matrix(rep(sample(c(-1, 1), size = n, replace = TRUE) * 4, each = 8),  : 
  data length differs from size of matrix: [8000 != 1000 x 4]
Calls: t -> cbind -> matrix
Execution halted
Running examples in ‘relabeLoadings-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: relabel
> ### Title: Relabel Factor Loadings from MCMC output
> ### Aliases: relabel relabel.matrix relabel.default
> ### Keywords: manip
> 
> ### ** Examples
> 
> 
> n <- 1000
> p <- 8
> set.seed(1)
> mu <- as.numeric(t(cbind(
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 8, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE))))
Error in matrix(rep(sample(c(-1, 1), size = n, replace = TRUE) * 4, each = 8),  : 
  data length differs from size of matrix: [8000 != 1000 x 4]
Calls: t -> cbind -> matrix
Execution halted
Running examples in ‘relabeLoadings-Ex.R’ failed
The error most likely occurred in:

> ### Name: relabel
> ### Title: Relabel Factor Loadings from MCMC output
> ### Aliases: relabel relabel.matrix relabel.default
> ### Keywords: manip
> 
> ### ** Examples
> 
> 
> n <- 1000
> p <- 8
> set.seed(1)
> mu <- as.numeric(t(cbind(
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 8, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE))))
Error in matrix(rep(sample(c(-1, 1), size = n, replace = TRUE) * 4, each = 8),  : 
  data length differs from size of matrix: [8000 != 1000 x 4]
Calls: t -> cbind -> matrix
Execution halted
Running examples in ‘relabeLoadings-Ex.R’ failed
The error most likely occurred in:

> ### Name: relabel
> ### Title: Relabel Factor Loadings from MCMC output
> ### Aliases: relabel relabel.matrix relabel.default
> ### Keywords: manip
> 
> ### ** Examples
> 
> 
> n <- 1000
> p <- 8
> set.seed(1)
> mu <- as.numeric(t(cbind(
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 8, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE),
+     matrix(rep(sample(c(-1, 1), size=n, replace=TRUE)*4, each=8), n, 4, byrow=TRUE))))
Error in matrix(rep(sample(c(-1, 1), size = n, replace = TRUE) * 4, each = 8),  : 
  data length differs from size of matrix: [8000 != 1000 x 4]
Calls: t -> cbind -> matrix
Execution halted