error when running non seasonal data

[xiesong]

Please see below, when I run the following code I get an error. I'm using ubuntu xenial R version 3.4.4 (2018-03-15).

Please see below a reproducible example.

library("Mcomp")
m3.monthly <- subset(M3,"monthly")
m3.history = lapply(m3.monthly, [[, 'x')

forecast(theta(m3.history$N1402),h=12)
Error in if (diff(range(colSums(ynt))) <= .Machine$double.eps^0.5) { :
missing value where TRUE/FALSE needed