CRAN Package Check Results for Package intercure

Last updated on 2020-02-17 02:47:15 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.0 4.22 265.73 269.95 NOTE
r-devel-linux-x86_64-debian-gcc 0.1.0 3.25 136.19 139.44 WARN
r-devel-linux-x86_64-fedora-clang 0.1.0 171.79 WARN
r-devel-linux-x86_64-fedora-gcc 0.1.0 174.85 WARN
r-devel-windows-ix86+x86_64 0.1.0 7.00 263.00 270.00 NOTE
r-devel-windows-ix86+x86_64-gcc8 0.1.0 13.00 323.00 336.00 NOTE
r-patched-linux-x86_64 0.1.0 2.92 226.74 229.66 OK
r-patched-solaris-x86 0.1.0 326.40 OK
r-release-linux-x86_64 0.1.0 4.00 226.64 230.64 OK
r-release-windows-ix86+x86_64 0.1.0 6.00 230.00 236.00 OK
r-release-osx-x86_64 0.1.0 OK
r-oldrel-windows-ix86+x86_64 0.1.0 3.00 274.00 277.00 OK
r-oldrel-osx-x86_64 0.1.0 OK

Check Details

Version: 0.1.0
Check: package vignettes
Result: NOTE
    Package vignette with placeholder title 'Vignette Title':
     'intercure.Rmd'
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8

Version: 0.1.0
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘intercure.Rmd’ using rmarkdown
    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