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.
    
  &nbs