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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Mvgt
> ### Title: General student t distribution
> ### Aliases: dmvgt rmvgt
> 
> ### ** Examples
> 
>   H      <- 2
>   p      <- runif(H)
>   p      =  p / sum(p) 
>   mu     <- matrix(seq(1:H),H,1)
>   Sigma  <- matrix(runif(H^2),H,H)
>   df     <- seq(1:H)  
>   Ndraws <- rmvgt(N=10,mit=list(p=p,mu=mu,Sigma=Sigma,df=df))
Error in matrix(mit$Sigma[h, ], k, k) : 
  data length differs from size of matrix: [2 != 1 x 1]
Calls: rmvgt -> rmvt -> nrow -> matrix
Execution halted
Running examples in ‘MitISEM-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Mvgt
> ### Title: General student t distribution
> ### Aliases: dmvgt rmvgt
> 
> ### ** Examples
> 
>   H      <- 2
>   p      <- runif(H)
>   p      =  p / sum(p) 
>   mu     <- matrix(seq(1:H),H,1)
>   Sigma  <- matrix(runif(H^2),H,H)
>   df     <- seq(1:H)  
>   Ndraws <- rmvgt(N=10,mit=list(p=p,mu=mu,Sigma=Sigma,df=df))
Error in matrix(mit$Sigma[h, ], k, k) : 
  data length differs from size of matrix: [2 != 1 x 1]
Calls: rmvgt -> rmvt -> nrow -> matrix
Execution halted
Running examples in ‘MitISEM-Ex.R’ failed
The error most likely occurred in:

> ### Name: Mvgt
> ### Title: General student t distribution
> ### Aliases: dmvgt rmvgt
> 
> ### ** Examples
> 
>   H      <- 2
>   p      <- runif(H)
>   p      =  p / sum(p) 
>   mu     <- matrix(seq(1:H),H,1)
>   Sigma  <- matrix(runif(H^2),H,H)
>   df     <- seq(1:H)  
>   Ndraws <- rmvgt(N=10,mit=list(p=p,mu=mu,Sigma=Sigma,df=df))
Error in matrix(mit$Sigma[h, ], k, k) : 
  data length differs from size of matrix: [2 != 1 x 1]
Calls: rmvgt -> rmvt -> nrow -> matrix
Execution halted
Running examples in ‘MitISEM-Ex.R’ failed
The error most likely occurred in:

> ### Name: Mvgt
> ### Title: General student t distribution
> ### Aliases: dmvgt rmvgt
> 
> ### ** Examples
> 
>   H      <- 2
>   p      <- runif(H)
>   p      =  p / sum(p) 
>   mu     <- matrix(seq(1:H),H,1)
>   Sigma  <- matrix(runif(H^2),H,H)
>   df     <- seq(1:H)  
>   Ndraws <- rmvgt(N=10,mit=list(p=p,mu=mu,Sigma=Sigma,df=df))
Error in matrix(mit$Sigma[h, ], k, k) : 
  data length differs from size of matrix: [2 != 1 x 1]
Calls: rmvgt -> rmvt -> nrow -> matrix
Execution halted