Found the following significant warnings:

  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in U[, j] * (t(U[, j]) %*% U[, iter]) : Recycling array of length 1 in vector-array arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : Recycling array of length 1 in array-vector arithmetic is deprecated.
  Warning in (t(v) %*% U[, j]) * U[, j] : 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.