public static async Task <FResult> Forecast(FResult parent, List <double> data, string customTemplate, string plotName, int plotWidth, int plotHeight)
{
var returnData = new FResult();
plotName = plotName.Replace(@"\", @"\\");
var template = $@"
suppressMessages(library(forecast))
data <- c({string.Join(",", data)})
";
RSession rInstance = RSession.GetInstance();
rInstance.StartHost();
await rInstance.Session.ExecuteAsync(template);
var result = await rInstance.Session.ExecuteAndOutputAsync(customTemplate);
if (result.Errors != "")
{
returnData.Error = result.Errors;
if (result.Errors.ToLower().IndexOf("warning") == -1)
{
throw new Exception(returnData.Error);
}
//return returnData;
}
var resultDataFrame = await rInstance.Session.GetDataFrameAsync("print(forec)");
returnData.TimeSeriesPoints = await rInstance.Session.GetListAsync <double>("print(data[1:length(data)])");
if (resultDataFrame == null || resultDataFrame.Data == null || resultDataFrame.Data.Count != 5)
{
rInstance.StopHost();
returnData.Error = "Unknown error detected!";
return(returnData);
}
returnData.Data = resultDataFrame.Data[0].Select(x => Convert.ToDouble(x)).ToArray();
returnData.Low80 = resultDataFrame.Data[1].Select(x => Convert.ToDouble(x)).ToArray();
returnData.High80 = resultDataFrame.Data[2].Select(x => Convert.ToDouble(x)).ToArray();
returnData.Low95 = resultDataFrame.Data[3].Select(x => Convert.ToDouble(x)).ToArray();
returnData.High95 = resultDataFrame.Data[4].Select(x => Convert.ToDouble(x)).ToArray();
returnData.ResultDataFrame = resultDataFrame;
if (plotName != "")
{
await RSession.SavePlotImage(rInstance.Session, plotName, plotWidth, plotHeight, 72);
}
rInstance.StopHost();
return(returnData);
}