mirror of
https://github.com/Microsoft/sql-server-samples.git
synced 2025-12-08 14:58:54 +00:00
33 lines
853 B
Transact-SQL
33 lines
853 B
Transact-SQL
use taxidata
|
|
go
|
|
|
|
CREATE PROCEDURE [dbo].[TrainTipPredictionModel]
|
|
AS
|
|
BEGIN
|
|
DECLARE @inquery nvarchar(max) = N'
|
|
select tipped, passenger_count, trip_time_in_secs, trip_distance, direct_distance
|
|
from nyctaxi_features
|
|
'
|
|
|
|
--delete previous stored models
|
|
truncate table dbo.nyc_taxi_models
|
|
|
|
-- Insert the trained model into a database table
|
|
INSERT INTO nyc_taxi_models
|
|
EXEC sp_execute_external_script
|
|
@language = N'R',
|
|
@script = N'
|
|
|
|
## Create model
|
|
logitObj <- rxLogit(tipped ~ passenger_count + trip_distance + trip_time_in_secs + direct_distance, data = InputDataSet)
|
|
|
|
|
|
## Serialize model and put it in data frame
|
|
trained_model <- data.frame(model=as.raw(serialize(logitObj, NULL)));
|
|
',
|
|
@input_data_1 = @inquery,
|
|
@output_data_1_name = N'trained_model'
|
|
;
|
|
|
|
END
|
|
GO |