Результатом следующего кода являются только входные данные в виде таблицы - PullRequest
2 голосов
/ 03 июля 2019

Следующий код просто отображает входные значения вместо поддержки и достоверности. Почему?

DECLARE @rscript NVARCHAR(MAX);
SET @rscript = N'
  library(arules)
  library(arulesViz)
  OutputDataSet <- data.frame(
  age   = as.factor(c(6, 6, 8, 8, NA, 9, 16)),
  grade = as.factor(c("A", "C", "C", "C", "F", NA, "C")),
  pass  = c(TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE)) 
rules <- apriori(OutputDataSet,parameter=list(supp= 0.001,conf = 0.8))
print(rules)';
EXEC sp_execute_external_script
@language = N'R',
@script = @rscript,
 @input_data_1 = N'  
...