chidden.f and chidden examples on Winbuilder

[swihart]

argh.

revert (that is put in dontruns in examples and come back to this guy)

Removing dontrun in chidden was fine local-mac and travis-ci. winbuilder complains:

* checking examples ...
** running examples for arch 'i386' ... ERROR
Running examples in 'repeated-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: chidden
> ### Title: Continuous-time Hidden Markov Chain Models
> ### Aliases: chidden
> ### Keywords: models
> 
> ### ** Examples
> 
> 
> # model for one randomly-generated binary series
> y <- c(rbinom(10,1,0.1), rbinom(10,1,0.9))
> mu <- function(p) array(p, c(1,2))
> print(z <- chidden(y, times=1:20, dist="Bernoulli",
+   pgamma=matrix(c(-0.1,0.2,0.1,-0.2),ncol=2),
+   cmu=mu, pcmu=c(-2,2)))
At line 420 of file chidden.f
Fortran runtime error: Index '2' of dimension 1 of array 'x' above upper bound of 1
** running examples for arch 'x64' ... ERROR
Running examples in 'repeated-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: chidden
> ### Title: Continuous-time Hidden Markov Chain Models
> ### Aliases: chidden
> ### Keywords: models
> 
> ### ** Examples
> 
> 
> # model for one randomly-generated binary series
> y <- c(rbinom(10,1,0.1), rbinom(10,1,0.9))
> mu <- function(p) array(p, c(1,2))
> print(z <- chidden(y, times=1:20, dist="Bernoulli",
+   pgamma=matrix(c(-0.1,0.2,0.1,-0.2),ncol=2),
+   cmu=mu, pcmu=c(-2,2)))
At line 420 of file chidden.f
Fortran runtime error: Index '2' of dimension 1 of array 'x' above upper bound of 1
* checking PDF version of manual ... OK
* DONE
Status: 2 ERRORs, 1 NOTE

[swihart]

(1) -> (*) in .f file.

winbuilder results:

SOLVED.