CRAN Package Check Results for Package intercure

Last updated on 2020-03-13 16:46:46 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.1.0 3.21 145.26 148.47 WARN
r-devel-linux-x86_64-debian-gcc 0.1.0 3.57 135.44 139.01 WARN
r-devel-linux-x86_64-fedora-clang 0.1.0 169.41 WARN
r-devel-linux-x86_64-fedora-gcc 0.1.0 164.13 WARN
r-devel-windows-ix86+x86_64 0.1.0 10.00 244.00 254.00 NOTE
r-devel-windows-ix86+x86_64-gcc8 0.1.0 6.00 264.00 270.00 NOTE
r-patched-linux-x86_64 0.1.0 3.58 224.37 227.95 OK
r-patched-solaris-x86 0.1.0 250.80 WARN
r-release-linux-x86_64 0.1.0 2.62 223.42 226.04 OK
r-release-windows-ix86+x86_64 0.1.0 5.00 222.00 227.00 OK
r-release-osx-x86_64 0.1.0 OK
r-oldrel-windows-ix86+x86_64 0.1.0 5.00 223.00 228.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:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Quitting from lines 271-281 (intercure.Rmd)
    Error: processing vignette 'intercure.Rmd' failed with diagnostics:
    task 15 failed - "generated time out of interval"
    --- failed re-building 'intercure.Rmd'
    
    SUMMARY: processing the following file failed:
     'intercure.Rmd'
    
    Error: Vignette re-building failed.
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

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:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Quitting from lines 271-281 (intercure.Rmd)
    Error: processing vignette 'intercure.Rmd' failed with diagnostics:
    task 12 failed - "generated time out of interval"
    --- failed re-building ‘intercure.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘intercure.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.1.0
Check: re-building of vignette outputs
Result: WARN
    Error(s) in re-building vignettes:
    --- re-building ‘intercure.Rmd’ using rmarkdown
    Warning in engine$weave(file, quiet = quiet, encoding = enc) :
     Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
    Loading required package: intercure
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in Xk[][i, 1:m] * exp(2 * theta %*% t(Z[i, ])) :
     Recycling array of length 1 in vector-array arithmetic is deprecated.
     Use c() or as.vector() instead.
    
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Warning in stats::dgamma(ksi_h, shape = exp(gamma_par), rate = exp(gamma_par), :
     NaNs produced
    Quitting from lines 271-281 (intercure.Rmd)
    Error: processing vignette 'intercure.Rmd' failed with diagnostics:
    task 7 failed - "generated time out of interval"
    --- failed re-building ‘intercure.Rmd’
    
    SUMMARY: processing the following file failed:
     ‘intercure.Rmd’
    
    Error: Vignette re-building failed.
    Execution halted
Flavor: r-patched-solaris-x86