[R] dse package problems

[Fernando Saldanha]

I am having problems with the package dse. I just installed R 2.2.1
and reinstalled all packages. I am running Windows XP Pro with all
updates.

Below there are two examples of error messages generated when trying
to execute some simple programs. The code was taken directly from the
package documentation.

Any help on this will be greatly appreciated.

Merry Christmas

Fernando

####################################
# First Example

> library("tframe")
Loading required package: setRNG
> library("dse1")

Attaching package: 'dse1'


        The following object(s) are masked from package:stats :

         acf simulate

> library("dse2")
>
> fileName <- system.file("otherdata", "eg1.dat", package="dse1")
> eg1.DSE.data <- t(matrix(scan(fileName),5, 364))[, 2:5]
Read 1820 items
>
> eg1.DSE.data <- TSdata(input= eg1.DSE.data[,1,drop = F], output=
+ eg1.DSE.data[, 2:4, drop = F])
>
> eg1.DSE.data # this is the troublemaking command
input data:
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
>

####################################
# Second Example

rary("tframe")
Loading required package: setRNG
> library("dse1")

Attaching package: 'dse1'


        The following object(s) are masked from package:stats :

         acf simulate

> library("dse2")
>
> AR <- array(c(1, 0.5, 0.3, 0, 0.2, 0.1, 0, 0.2, 0.05, 1, 0.5, 0.3), c(3, 2,
+ 2))
> MA <- array(c(1, 0.2, 0, 0.1, 0, 0, 1, 0.3), c(2, 2, 2))
> arma <- ARMA(A = AR, B = MA, C = NULL)
> data.arma.sim <- simulate(arma)
>
> data.arma.sim
output data:
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?
>





#############################################################

##################################################################
# Second Example

library("tframe")
library("dse1")
library("dse2")

AR <- array(c(1, 0.5, 0.3, 0, 0.2, 0.1, 0, 0.2, 0.05, 1, 0.5, 0.3), c(3, 2,
2))
MA <- array(c(1, 0.2, 0, 0.1, 0, 0, 1, 0.3), c(2, 2, 2))
arma <- ARMA(A = AR, B = MA, C = NULL)
data.arma.sim <- simulate(arma)

data.arma.sim # R crashes here