R-PLUGIN -ISSUES on extract series-

[jmarinesc1]

When i TRY to explote data series with below Script I GET Below Error Expression...please help me......

R.ScriptEval(
if($(vAnalysisType)='Holt-Winters',
'library(forecast);
a<-q$Measure;
aa<-a[a!=0];
regresion<-lm(aa~c(1:length(aa)));
data<-ts(na.omit(aa) ,frequency=12);
fit<-HoltWinters(data, alpha=$(vAlfa),beta=$(vBeta),gamma = $(vGamma), seasonal = $(vSeasonal), l.start = regresion$coefficients[1],b.start = regresion$coefficients[2]);
res<-forecast(fit, level=$(vLevel), h=12*$(vAniosPronos));
ff<-ts(c(numeric(length(res$fitted)),res$lower),frequency=12);
ff;'
,
'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(numeric(length(res$fitted)),res$lower),frequency=12);
ff;'
),
column(1) as Measure)