From d1e35485f5cc347e86be0441ea6c8536462d3703 Mon Sep 17 00:00:00 2001 From: Zhou Fang Date: Thu, 20 Jul 2017 15:40:40 +0800 Subject: [PATCH] Update CRMonCDNOWInSql --- .../Retail Precision Marketing/R/CRMonCDNOWInSql.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R index 66ce7c87..87541210 100644 --- a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R +++ b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R @@ -44,12 +44,12 @@ KmeansData <- RxSqlServerData(connectionString=connectionString, table = "Kmeans_Result") md.km <- rxKmeans(formula=~R+F+M+R_Score+F_Score+M_Score, - data=RFMData, - outFile=KmeansData, - numClusters=8, - algorithm="lloyd", - writeModelVars=TRUE, - overwrite=TRUE) + data=RFMData, + outFile=KmeansData, + numClusters=8, + algorithm="lloyd", + writeModelVars=TRUE, + overwrite=TRUE) rxGetInfo(KmeansData, getVarInfo=TRUE, numRows=10) @@ -98,7 +98,7 @@ RFMVIPTrainTestData <- RxSqlServerData(connectionString = connectionString, rxDataStep(inData=RFMVIPRDData, outFile=RFMVIPTrainTestData, - transforms=list(urv=factor(ifelse(RD <= 8,'TRAIN','TEST'))), + transforms=list(urv=factor(ifelse(RD <= 8,'TRAIN','TEST'))), overwrite=T) rxGetInfo(RFMVIPTrainTestData, T, numRows=3)