Xcxvcxvcx

martes 26 de junio de 2012 04:16:56 PM COT
* Set Measurement Level for Unknown.
VARIABLE LEVEL
/VAR00003 VAR00004(NOMINAL)
/VAR00001(SCALE).
* Decision Tree.
TREE VAR00004 [n] BY VAR00001 [s] VAR00002 [n] VAR00003 [n]
/TREE DISPLAY=TOPDOWN NODES=STATISTICS BRANCHSTATISTICS=YES NODEDEFS=YES SCALE=AUTO
/DEPCATEGORIES USEVALUES=[VALID]
/PRINT MODELSUMMARY CLASSIFICATION RISK
/METHODTYPE=CHAID
/GROWTHLIMIT MAXDEPTH=AUTO MINPARENTSIZE=100 MINCHILDSIZE=50
/VALIDATION TYPE=NONE OUTPUT=BOTHSAMPLES
/CHAID ALPHASPLIT=0.05 ALPHAMERGE=0.05 SPLITMERGED=NO CHISQUARE=PEARSON CONVERGE=0.001 MAXITERATIONS=100 ADJUST=BONFERRONI INTERVALS=10
/COSTS EQUAL
/MISSING NOMINALMISSING=MISSING.
miércoles 4 de julio de 2012 04:44:52 PM COT
GET
SAS DATA='D:\Datos deUsuarios\s23335\Desktop\query_for_negocios_final.sas7bdat'.
DATASET NAME DataSet1 WINDOW=FRONT.
PRESERVE.
SET PRINTBACK OFF.
* RFM Analysis from Customer Data.
RANK
ANTIGUEDAD
(D)
/NTILES (5) INTO Recency_score
/PRINT=NO.
RANK
MOV_ULTIMO_MES
/NTILES (5) INTO Frequency_score
/PRINT=NO.
RANK
TOTAL_INGRESOS_UM
/NTILES (5) INTO Monetary_score
/PRINT=NO.
COMPUTERFM_score=Recency_score*100+Frequency_score*10+Monetary_score.
EXECUTE
.
FORMATS
RFM_score (F3.0).
VARIABLE LABELS
Recency_score 'Recency score'
/Frequency_score 'Frequency score'
/Monetary_score 'Monetary score'
/RFM_score 'RFM score'.
DMGGRAPH
/GRAPHDATASET NAME="graphdataset" VARIABLES=
COUNT()[name="COUNT"]
Monetary_score
Frequency_score
Recency_score
MISSING=LISTWISE
REPORTMISSING=NO/GRAPHSPEC SOURCE=INLINE label="RFM Bin Counts"
/DESCRIPTION TEXT=BINCOUNT.
BEGIN GPL
PAGE: begin(scale(550px,425px))
SOURCE: s=userSource(id("graphdataset"))
DATA: monetary=col(source(s), name("Monetary_score"), unit.category())
DATA: recency=col(source(s), name("Recency_score"), unit.category())
DATA: frequency=col(source(s), name("Frequency_score"), unit.category())
DATA:COUNT=col(source(s), name("COUNT"))
GUIDE: text.title(label("RFM Bin Counts"))
GUIDE: axis(dim(2), ticks(null()))
GUIDE: axis(dim(4), label("Recency"), opposite(), gap(0px))
GUIDE: axis(dim(3), label("Frequency") , opposite(), gap(0px))
GUIDE: axis(dim(3), label("Monetary"), ticks(null()))
SCALE: cat(dim(1))
SCALE: linear(dim(2), include(0))
SCALE: cat(dim(4), reverse())
SCALE: cat(dim(3))ELEMENT: interval(position(monetary*COUNT*frequency*recency),
shape.interior(shape.square),color.interior(color.blue),color.exterior(color.white))
PAGE: end()
END GPL.
DMCROSSTABS
/TABLES=Frequency_score BY Monetary_score BY Recency_score
/FORMAT=AVALUE TABLES
/CELLS=COUNT
/COUNT ROUND CELL.
DMGGRAPH
/GRAPHDATASET NAME="graphdataset" VARIABLES= TOTAL_INGRESOS_UM
Recency_scoreFrequency_score
MISSING=LISTWISE
REPORTMISSING=NO
/GRAPHSPEC SOURCE=INLINE label="RFM Heat Map"
/DESCRIPTION TEXT=HEATMAP.
BEGIN GPL
PAGE: begin(scale(550px,375px))
SOURCE: s=userSource(id("graphdataset"))
DATA: amount=col(source(s), name("TOTAL_INGRESOS_UM"))
DATA: recency=col(source(s), name("Recency_score"), unit.category())
DATA: frequency=col(source(s),name("Frequency_score"), unit.category())
GUIDE: text.title(label("RFM Heat Map"))
GUIDE: axis(dim(1), label("Frequency"))
GUIDE: axis(dim(2), label("Recency"))
GUIDE: legend(aesthetic(aesthetic.color.saturation), label ("Mean Monetary Value per RF Category"))
ELEMENT: polygon(position(frequency*recency),
color.interior(color.blue), color.exterior(color.navy), color.saturation(summary.mean(amount)))PAGE: end()
END GPL.
DMGGRAPH
/GRAPHDATASET NAME="graphdataset" VARIABLES=
ANTIGUEDAD MOV_ULTIMO_MES TOTAL_INGRESOS_UM
MISSING=LISTWISE
REPORTMISSING=NO
/GRAPHSPEC SOURCE=INLINE label="RFM Histograms"
/DESCRIPTION TEXT=HISTOGRAM.
BEGIN GPL
PAGE: begin(scale(550px,375px))
SOURCE: s=userSource(id("graphdataset"))
DATA: recency=col(source(s), name("ANTIGUEDAD"))
DATA:...