Found the following significant warnings:

  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in -alpha.new/((1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new)) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (diag.vec - 2) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in alpha.new/((1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new)) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in -alpha.new/((1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new)) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (diag.vec - 2) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (diag.vec - 1) * alpha.new : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new) : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in alpha.new/((1 - alpha.new) * (1 + (diag.vec - 1) * alpha.new)) : Recycling array of length 1 in array-vector arithmetic is deprecated.
Deprecated functions may be defunct as soon as of the next release of
R.
See ?Deprecated.