Error in my.RSS.table[as.character(i), 3:4] <- c(pot.index[opt], break.RSS[opt]) : replacement has length zero

This is a very odd edge case. With a specific `h` value and specifically when using both `trend` and `harmon` components of `bfastpp`, for specific data, I get the error:
```
Error in my.RSS.table[as.character(i), 3:4] <- c(pot.index[opt], break.RSS[opt]) :
replacement has length zero
```
Also a lot of warnings about `sqrt()` producing `NaN` values. Looks like that line fails because `opt` is an `integer(0)`, and that is because `break.RSS` is a single `NaN` (which probably comes from the `sqrt` problem, which in turn comes from `fr` in `recresid` being a negative value, which comes from `X1` having negative values, and I don't know what `X1` stands for).

To reproduce, see attached CSV, and then run the code:
```r
breakpoints(formula(response~trend+harmon), data=
bfastpp(bfastts(CSV$evi, CSV$time), "irregular"), order=3), h=46)
```

[bug.txt](https://github.com/appelmar/strucchange/files/2495275/bug.txt)

Bắt đầu bằng cách tái hiện lệnh gọi breakpoints() được báo cáo với CSV đính kèm, sử dụng bfastpp() và bfastts() như đã minh họa. Truy vết cách recresid(), X1, break.RSS và opt tạo ra NaN và phép thay thế rỗng; hoàn thành khi ví dụ không còn thất bại với lỗi về độ dài phép thay thế và hành vi của trường hợp biên này được kiểm thử hồi quy.

Do mô hình lập chỉ mục viết ra từ nội dung của issue.