Revolution R Enterprise inside SQL Server - Forecasting using Linear Regression
Find installed R Packages in SQL/R Process
sp_execute_external_script @language = N'R', @script = N'OutputDataSet <- data.frame(installed.packages())'
Install Additional R Packages
https://msdn.microsoft.com/en-in/library/mt591989.aspx
Revolution R Enterprise inside SQL Server
EXECUTE sp_execute_external_script
@language = N'R'
,@script = N'
salesData <- InputDataSet
fit <- lm(SalesAmount ~ Year + Quarter, data = as.data.frame(salesData))
data2017 <- data.frame(Year=2017, Quarter=1:4)
sales2017 <- predict(fit, newdata=data2017)
style <- c(rep(1,14), rep(2,4))
salesForecast <- data.frame(data2017, sales2017)
library(sqldf)
OutputDataSet <- sqldf("select Quarter, Year, SalesAmount from salesData UNION select Quarter, Year, sales2017 from salesForecast")
'
,@parallel = 1
,@input_data_1 = N'select d.CalendarQuarter Quarter, CalendarYear Year, sum(f.SalesAmount) SalesAmount from dbo.FactInternetSales f
join dbo.DimDate d on f.OrderDateKey = d.DateKey group by CalendarYear, d.CalendarQuarter order by CalendarYear, d.CalendarQuarter'
WITH RESULT SETS (
(
"Quarter" int null,
"Year" int null,
"SalesAmount" float not null
)
);
Comments
Post a Comment