BAD EXPRESSION USING R-PLUGIN & Open Source SSEtoRserve extension

[jmarinesc1]

When I try to run below expression I get BAD EXPRESSION and I can not get my data series...

R.ScriptEval(
'library(forecast);
a<-q$Measure;
aa<-a[a!=0];
regresion<-lm(aa~c(1:length(aa)));
data<-ts(na.omit(aa) ,frequency=12);
fit<-auto.arima(data);
res<-forecast(fit, level=$(vLevel), h=12*$(vAniosPronos));
ff<-ts(c(res$fitted,res$mean),frequency=12);
ff;',
column(1) as Measure)

BUT WHEN I HAVE THESE...

('library(forecast);a<-q$Measure;aa<-a[a!=0];regresion<-lm(aa~c(1:length(aa)));data<-ts(na.omit(aa) ,frequency=12);fit<-auto.arima(data);res<-forecast(fit, level=$(vLevel), h=12*$(vAniosPronos));ff<-ts(c(res$fitted,res$mean),frequency=12);ff;')

I DON't Have bad expression, but i can not get my series....I don't know what was happening...maype port 50051...Please help me.......