Как развернуть обученную модель k-средних (RevoScaleR) на SQL Server и получить визуализацию, например Microsoft Cluster Viewer в R?
Выполнение k-средних кластеров для данных, полученных с SQL Server. Теперь я застрял с проблемой: мне нужно развернуть модель результатов на SQL Server для дальнейшего использования и для визуализации ее, как Microsoft Cluster Viewer. Можно ли это сделать только в R?
Теперь у меня есть этот код:
SQLserver <- "PC\\SQLSERVER"
database <- "data_warehouse_2"
connection_string <- paste("Driver=SQL Server;Server=", SQLserver, ";Database=", database, ";Trusted_Connection=true;", sep = "");
input_query <- "SELECT * FROM MainBalanceLinesView ORDER BY CompanyID"
indicators_returns <- RxSqlServerData(sqlQuery = input_query, colClasses = c(CompanyID = "integer", X11103 = "numeric", X11203 = "numeric", X11303 = "numeric", X11403 = "numeric", X11503 = "numeric", X11603 = "numeric", X11703 = "numeric", X11803 = "numeric", X11903 = "numeric", X12103 = "numeric", X12203 = "numeric", X12303 = "numeric", X12403 = "numeric", X12503 = "numeric", X13103 = "numeric", X13203 = "numeric", X13403 = "numeric", X13503 = "numeric", X13603 = "numeric", X13703 = "numeric", X14103 = "numeric", X14203 = "numeric", X14303 = "numeric", X14503 = "numeric", X15103 = "numeric", X15203 = "numeric", X15303 = "numeric", X15403 = "numeric", X15503 = "numeric"), connectionString = connection_string);
indicators_data <- rxDataStep(indicators_returns);
clusters_num = 3
return_cluster = RxSqlServerData(table = "return_cluster", connectionString = connection_string);
clust <- rxKmeans(~X11103 + X11203 + X11303 + X11403 + X11503 + X11603 + X11703 + X11803 + X11903 + X12103 + X12203 + X12303 + X12403 + X12503 + X13103 + X13203 + X13403 + X13503 + X13603 + X13703 + X14103 + X14203 + X14303 + X14503 + X15103 + X15203 + X15303 + X15403 + X15503, indicators_returns, numClusters = clusters_num, outFile = return_cluster, outColName = "cluster", extraVarsToWrite = c("CompanyID"), overwrite = TRUE);
indicator_cluster <- rxDataStep(return_cluster);
indicators_data$cluster <- indicator_cluster$cluster
Я думаю, мне нужно указать контекст вычисления, но я не могу получить следующие шаги.