exec sp_configure 'show advanced options',1;
reconfigure;
exec sp_configure 'external scripts enabled',1;
reconfigure;
--exec sp_configure 'xp_cmdshell',1;
--exec sp_configure 'Ole Automation Procedures',1;
--exec sp_configure 'Ad Hoc Distributed Queries',1;

declare @r1 as float,@r2 as float
execute sp_execute_external_script
@language=N'R'
,@parallel=1
,@script=N'm<-summary(lm(s~q+c,data=z))
x<-m$r.squared
y<-m$adj.r.squared
u<-data.frame(coefficients(m))
v<-cbind(nm=rownames(u),u)'
,@input_data_1=N'select[OrderDateKey]d
,sum([OrderQuantity])q
,sum([TotalProductCost])c
,sum([SalesAmount])s
from[dbo].[FactResellerSales]
where left([OrderDateKey],4)=2011
group by[OrderDateKey]
order by[OrderDateKey]'
,@input_data_1_name=N'z'
,@output_data_1_name = N'v'
,@params=N'@x float OUTPUT,@y float OUTPUT'
,@x=@r1 OUTPUT
,@y=@r2 OUTPUT
with result sets(("Type" varchar(100),"Estimate" float,"Std.Err" float,"t-Value" float,"P(t)" float))
select @r1 as "R(mult)",@r2 as "Ra(mult)"