Back to Rapid builds (Linux only) of a subset of BioC 3.21
Report updated every 6 hours

This page was generated on 2025-04-04 12:34 -0400 (Fri, 04 Apr 2025).

HostnameOSArch (*)R versionInstalled pkgs
teran2Linux (Ubuntu 24.04.1 LTS)x86_64R Under development (unstable) (2025-01-20 r87609) -- "Unsuffered Consequences" 871
Click on any hostname to see more info about the system (e.g. compilers)      (*) as reported by 'uname -p', except on Windows and Mac OS X

Package 70/217HostnameOS / ArchINSTALLBUILDCHECK
EBarrays 2.71.0  (landing page)
Ming Yuan
Snapshot Date: 2025-04-04 12:00 -0400 (Fri, 04 Apr 2025)
git_url: https://git.bioconductor.org/packages/EBarrays
git_branch: devel
git_last_commit: 3c3b71c
git_last_commit_date: 2024-10-29 09:22:33 -0400 (Tue, 29 Oct 2024)
teran2Linux (Ubuntu 24.04.1 LTS) / x86_64  OK    ERROR  skipped

BUILD results for EBarrays on teran2

To the developers/maintainers of the EBarrays package:
- Use the following Renviron settings to reproduce errors and warnings.
- If 'R CMD check' started to fail recently on the Linux builder(s) over a missing dependency, add the missing dependency to 'Suggests:' in your DESCRIPTION file. See Renviron.bioc for more information.

raw results


Summary

Package: EBarrays
Version: 2.71.0
Command: /home/rapidbuild/bbs-3.21-bioc-rapid/R/bin/R CMD build --keep-empty-dirs --no-resave-data EBarrays
StartedAt: 2025-04-04 12:23:48 -0400 (Fri, 04 Apr 2025)
EndedAt: 2025-04-04 12:23:59 -0400 (Fri, 04 Apr 2025)
EllapsedTime: 10.9 seconds
RetCode: 1
Status:   ERROR  
PackageFile: None
PackageFileSize: NA

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /home/rapidbuild/bbs-3.21-bioc-rapid/R/bin/R CMD build --keep-empty-dirs --no-resave-data EBarrays
###
##############################################################################
##############################################################################


* checking for file ‘EBarrays/DESCRIPTION’ ... OK
* preparing ‘EBarrays’:
* checking DESCRIPTION meta-information ... OK
* cleaning src
* installing the package to build vignettes
* creating vignettes ... ERROR
--- re-building ‘vignette.Rnw’ using Sweave
Loading required package: Biobase
Loading required package: BiocGenerics
Loading required package: generics

Attaching package: ‘generics’

The following objects are masked from ‘package:base’:

    as.difftime, as.factor, as.ordered,
    intersect, is.element, setdiff,
    setequal, union


Attaching package: ‘BiocGenerics’

The following objects are masked from ‘package:stats’:

    IQR, mad, sd, var, xtabs

The following objects are masked from ‘package:base’:

    Filter, Find, Map, Position, Reduce,
    anyDuplicated, aperm, append,
    as.data.frame, basename, cbind,
    colnames, dirname, do.call, duplicated,
    eval, evalq, get, grep, grepl,
    is.unsorted, lapply, mapply, match,
    mget, order, paste, pmax, pmax.int,
    pmin, pmin.int, rank, rbind, rownames,
    sapply, saveRDS, table, tapply, unique,
    unsplit, which.max, which.min

Welcome to Bioconductor

    Vignettes contain introductory material;
    view with 'browseVignettes()'. To cite
    Bioconductor, see 'citation("Biobase")',
    and for packages 'citation("pkgname")'.

Loading required package: lattice
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Warning in c(args$n, args$n - 1, 1) %*% log(c(2 * base::pi, theta[2], spnt)) +  :
  Recycling array of length 1 in array-vector arithmetic is deprecated.
  Use c() or as.vector() instead.
Error: processing vignette 'vignette.Rnw' failed with diagnostics:
write failed
--- failed re-building ‘vignette.Rnw’

SUMMARY: processing the following file failed:
  ‘vignette.Rnw’

Error: Vignette re-building failed.
Execution halted