nulldata 100

set seed 13

series serie = cum(normal())

eval mean(serie)

eval serie[1]

function series sc_sp (series *serie)

   return (serie - mean(serie))/sd(serie) + 1

end function

function void funzione(series *serie)

   serie = sc_sp(&serie)

   comando = "arima 1 0; serie"

   @comando -q

end function

funzione(&serie)

eval mean(serie)

eval serie[1]