From 580b69a30ed1047f5552144976c00f67e0f446ad Mon Sep 17 00:00:00 2001 From: Zhou Fang Date: Mon, 10 Jul 2017 15:28:27 +0800 Subject: [PATCH] update --- .../Retail Precision Marketing/R/CRMonCDNOWInDisk.R | 3 +-- .../Retail Precision Marketing/R/CRMonCDNOWInMemory.R | 5 +++-- .../Retail Precision Marketing/R/CRMonCDNOWInSql.R | 7 ++----- 3 files changed, 6 insertions(+), 9 deletions(-) diff --git a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInDisk.R b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInDisk.R index 673fcbd6..dd43cf7b 100644 --- a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInDisk.R +++ b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInDisk.R @@ -1,7 +1,6 @@ - ############################################################# #CRM Demo on CDNOW -#Fang Zhou +#Microsoft ############################################################# ##check if necessary R packages are installed install.packages("RODBC") diff --git a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInMemory.R b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInMemory.R index c54c3d97..f81c5d87 100644 --- a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInMemory.R +++ b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInMemory.R @@ -1,7 +1,8 @@ ############################################################# #CRM Demo on CDNOW -#Fang Zhou +#Microsoft ############################################################# + #install package install.packages("rmarkdown") install.packages("fpc") @@ -66,7 +67,7 @@ hist(df$Monetary) #set the Recency ranges as 0-120 days, 120-240 days, 240-450 days, 450-500days, and more than 500days. r <-c(120,240,450,500) -#set the Frequency ranges as 0 – 2times, 2-5 times,5-8 times, 8-10 times, and more than 10 times. +#set the Frequency ranges as 0 ? 2times, 2-5 times,5-8 times, 8-10 times, and more than 10 times. f <-c(2,5,8,10) #set the Monetary ranges as 0-10 dollars, 10-20 dollars, and so on. m <-c(10,20,30,100) 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 e349251c..b829bed5 100644 --- a/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R +++ b/samples/features/r-services/Retail Precision Marketing/R/CRMonCDNOWInSql.R @@ -1,6 +1,6 @@ ################################################################ ##CRM Demo in-SQL compute context -##Fang Zhou +##Microsoft ################################################################# connectionString <- "Driver=SQL Server;Server=tcp:192.168.176.130,1433;Database=sqlr;Uid=sa;Pwd=Microsoft1" @@ -155,10 +155,7 @@ sqlSave(channel,DTreePred,rownames=FALSE,append=FALSE,varTypes=list(numeric="flo odbcClose(channel) -#Examples for RxInSqlSever compute context -file.show(system.file("demoScripts/SqlServerIOQ_Tests_Setup.sql", package = "RevoScaleR")) -file.show(system.file("demoScripts/SqlServerIOQ_Tests.sql", package = "RevoScaleR")) -file.show(system.file("demoScripts/SqlServerIOQ_Tests_Teardown.sql", package = "RevoScaleR")) +