接續上篇, 這一篇就來實作讀取存在MSSQL Table裡的模型, 來完成預測的功能, 在上一篇裡, 我們將模型序列化後存進MSSQL Table varbinary(max)欄位, 而現在我們從MSSQL Table varbinary(max)欄位取出模型, 傳到R Service然後返序列化, 還原模型, 在R Service裡使用, 程式碼如下

關鍵就是使用unserialize(),將模型反序列化出來, 預測結果與Day10一樣, 代表正確無誤, 另外想在R Serivce查看變數的話, 可以用print()跟str(), 結果會在Messages顯示出來如下, 這個可以用來除錯

接下來就來把這個預測功能包成可丟Level參數的Store Procedure, 修改程式碼如下

跟著測試一下, 功能是否正常?

再來製作一支產生繪圖的Store Procedure, 結合Day08的視覺化程式碼如下

與Day14繪圖程式碼如下

最後修修改改, 合併之後的程式碼如下

順便測試一下產生圖檔是否正常如下?

在這篇裡, 我們建立了兩支Store Procedure如下

spPosition_Salaries_Predict用來做預測薪資, 而spPosition_Salaries_Plot則是傳回Support Vector Regression的圖形, 下一篇來透過外部程式’Windows Form與這兩支Store Procedure作互動囉