Random Forest variable importance returns error

[jmh579]

Expect error to be present in TrainSpectralModel() related to results returned from randomForest::importance().

Error in `[<-.data.frame`(`*tmp*`, i, , value = c(4.58077485198304, 3.75056303077221,  : 
  replacement has 331 items, need 332