Value ticks guessing does not perform well in relatively trivial case

[mbannert]

Here's your RE (thanks Sina):

library(tstools)
series <- structure(c(-2.11950533333333, -1.87430033333333, -1.87209166666667, 
                      -0.162747333333333, -0.00103433333333334, 0.0112913333333333, 
                      0.192435, 0.0621036666666667, 0.075955, 0.0120246666666667, -0.192284666666667, 
                      -0.095359, -0.117480666666667, -0.046436, -0.0409476666666667, 
                      0.00420633333333333, -0.0260943333333333, -0.0127316666666667, 
                      0.0213723333333333, -0.00199133333333333, 0.00957366666666666, 
                      -0.0387903333333333, -0.00925466666666667, -0.016231, -0.706199666666667, 
                      -0.684903666666667, -0.724438, -0.722485, -0.0114526666666667, 
                      -0.0237806666666667, -0.0118123333333333, -0.00195733333333337, 
                      -0.000911333333333375, 0.0166543333333333, 0.00898100000000002, 
                      -0.0140576666666666, -0.0130963333333333, 0.00214166666666671, 
                      -0.00511633333333339, 0.00677000000000005), .Tsp = c(2009, 2018.75, 
                                                                           4), class = "ts")

tsplot(series)

[omuelle]

Another case in R:\olmuelle\tstools_bug_tslist.RData. To reproduce simply plot the loaded list.