cumPoolsSmooth issue

[suz-estella]

I was able to reprex an issue I'm sometimes getting running cumPoolsSmooth. I've attached a cPoolsRaw table for a curve that I'm able to observe the error for repeatedly:

cPoolsRaw_issue.csv

> cPoolsRaw <- data.table::data.table::fread("cPoolsRaw_issue.csv")
> cumPoolsSmooth(cPoolsRaw)
1 of 1: 28_Betu_pap_G
Error in `[.data.table`(SD, , `:=`(override, ind > firstInflection & ind <  : 
  Supplied 235 items to be assigned to 233 items of column 'override'. If you wish to 'recycle' the RHS please use rep() to make this intent clear to readers of your code.

@camillegiuliano I thought since you have more experience with this function you might know how to go about fixing this one. Otherwise I'm open to giving it a try!

[camillegiuliano]

Haha good timing, I've actually been hitting this today with one of the birch curves we assigned the aspen curves to so I was going to look at it anyway, I'll push it up higher on my list! This was also the error I was hitting yesterday with one of the birch curves pre-replacement, It seems to only happen with these birch curves, which makes me think it might partly be due to lack of data.

[camillegiuliano]

Update on this: I currently have a working solution for this using the reprex curve you sent here, just checking that it runs the way it's supposed to within the module with the other SK curves and if all that runs well, I'm PRing the change this afternoon