Error(s) in re-building vignettes:
--- re-building 'other-Bessels.Rnw' using Sweave

Attaching package: 'gsl'

The following objects are masked from 'package:Rmpfr':

    erf, erfc, hypot, zeta

Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(50000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(100000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(150000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(200000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(250000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(300000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(350000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(400000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(450000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(500000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(550000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(600000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(650000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(700000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(750000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(800000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(850000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(900000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(950000 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(3.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(4.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(5.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(6.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(7.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(8.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.05e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.1e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.15e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.2e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.25e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.3e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.35e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.4e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.45e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.5e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.55e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.6e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.65e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.7e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.75e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.8e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.85e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.9e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(9.95e+06 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.005e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.01e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.015e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.02e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.025e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.03e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.035e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.04e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.045e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.05e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.055e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.06e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.065e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.07e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.075e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.08e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.085e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.09e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.095e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.1e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.105e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.11e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.115e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.12e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.125e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.13e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.135e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.14e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.145e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.15e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.155e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.16e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.165e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.17e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.175e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.18e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.185e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.19e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.195e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.2e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.205e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.21e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.215e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.22e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.225e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.23e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.235e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.24e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.245e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.25e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.255e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.26e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.265e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.27e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.275e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.28e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.285e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.29e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.295e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.3e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.305e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.31e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.315e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.32e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.325e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.33e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.335e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.34e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.345e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.35e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.355e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.36e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.365e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.37e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.375e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.38e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.385e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.39e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.395e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.4e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.405e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.41e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.415e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.42e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.425e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.43e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.435e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.44e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.445e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.45e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.455e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.46e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.465e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.47e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.475e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.48e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.485e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.49e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.495e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.5e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.505e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.51e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.515e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.52e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.525e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.53e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.535e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.54e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.545e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.55e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.555e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.56e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.565e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.57e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.575e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.58e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.585e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.59e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.595e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.6e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.605e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.61e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.615e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.62e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.625e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.63e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.635e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.64e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.645e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.65e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.655e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.66e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.665e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.67e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.675e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.68e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.685e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.69e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.695e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.7e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.705e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.71e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.715e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.72e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.725e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.73e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.735e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.74e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.745e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.75e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.755e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.76e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.765e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.77e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.775e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.78e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.785e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.79e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.795e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.8e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.805e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.81e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.815e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.82e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.825e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.83e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.835e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.84e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.845e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.85e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.855e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.86e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.865e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.87e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.875e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.88e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.885e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.89e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.895e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.9e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.905e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.91e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.915e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.92e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.925e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.93e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.935e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.94e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.945e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.95e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.955e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.96e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.965e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.97e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.975e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.98e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.985e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.99e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(1.995e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.005e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.01e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.015e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.02e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.025e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.03e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.035e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.04e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.045e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.05e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.055e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.06e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.065e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.07e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.075e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.08e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.085e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.09e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.095e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.1e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.105e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.11e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.115e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.12e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.125e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.13e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.135e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.14e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.145e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.15e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.155e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.16e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.165e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.17e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.175e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.18e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.185e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.19e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.195e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.2e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.205e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.21e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.215e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.22e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.225e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.23e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.235e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.24e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.245e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.25e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.255e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.26e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.265e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.27e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.275e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.28e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.285e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.29e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.295e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.3e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.305e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.31e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.315e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.32e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.325e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.33e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.335e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.34e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.345e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.35e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.355e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.36e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.365e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.37e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.375e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.38e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.385e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.39e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.395e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.4e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.405e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.41e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.415e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.42e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.425e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.43e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.435e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.44e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.445e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.45e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.455e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.46e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.465e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.47e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.475e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.48e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.485e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.49e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.495e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in BesselI(x, pi, expo = TRUE) :
  'zbesi(2.5e+07 + 0i, nu=3.14159)' large arguments -> precision loss (of at least half machine accuracy)
Warning in system(paste(shQuote(texi2dvi), if (quiet) "--quiet" else "",  :
  running command '"D:\compiler\texmf\miktex\bin\texify.exe" --quiet --pdf "other-Bessels.tex" --max-iterations=20 -I "D:/RCompile/recent/R-4.0.2/share/texmf/tex/latex" -I "D:/RCompile/recent/R-4.0.2/share/texmf/bibtex/bst"' had status 1
Error: processing vignette 'other-Bessels.Rnw' failed with diagnostics:
Failed to locate 'texi2pdf' output file 'other-Bessels.pdf' for vignette with name 'other-Bessels' and engine 'utils::Sweave'. The following files exist in working directory 'd:\RCompile\CRANpkg\local\4.0\Bessel.Rcheck\vign_test\Bessel\vignettes': 'Bessel.bib' (3114 bytes), 'myVignette.sty' (3479 bytes), 'other-Bessels-J-gsl.pdf' (13622 bytes), 'other-Bessels.Rnw' (10471 bytes), 'other-Bessels.tex' (16698 bytes)
--- failed re-building 'other-Bessels.Rnw'

SUMMARY: processing the following file failed:
  'other-Bessels.Rnw'

Error: Vignette re-building failed.
Execution halted