github/sql-server-samples
1
0
Fork 0
mirror of https://github.com/Microsoft/sql-server-samples.git synced 2025-12-08 14:58:54 +00:00
Code Issues Releases Wiki Activity

Update CRMonCDNOWInSql

Browse Source
This commit is contained in:
Zhou Fang
2017-07-20 15:40:40 +08:00
committed by GitHub
parent 89eccdd5e8
commit d1e35485f5
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R
+7 -7
View File
@@ -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)