Error(s) in re-building vignettes:
--- re-building ‘intercure.Rmd’ using rmarkdown
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
  Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
Loading required package: intercure
Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
  Recycling array of length 1 in vector-array arithmetic is deprecated.
  Use c() or as.vector() instead.

Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par),  :
  NaNs produced
Quitting from lines 271-281 (intercure.Rmd) 
Error: processing vignette 'intercure.Rmd' failed with diagnostics:
task 7 failed - "generated time out of interval"
--- failed re-building ‘intercure.Rmd’

SUMMARY: processing the following file failed:
  ‘intercure.Rmd’

Error: Vignette re-building failed.
Execution halted