# NOT RUN {
 
# }
# NOT RUN {
##example of LM in alumni satisfaction
 
data(fibtelereg)
#identify the segmentation variables  
segvar = fibtelereg[,2:11]
#select the variables
data.fib = fibtelereg[,12:18]          
#re-ordering those segmentation variables with ordinal scale
segvar$Age     = factor(segvar$Age, ordered=T)
segvar$Salary   = factor(segvar$Salary, 
	levels=c("<18k","25k","35k","45k",">45k"), ordered=T)
segvar$Accgrade = factor(segvar$Accgrade, 
	levels=c("accnote<7","7-8accnote","accnote>8"), ordered=T)
segvar$Grade 	= factor(segvar$Grade, 
	levels=c("<6.5note","6.5-7note","7-7.5note",">7.5note"), ordered=T)
#regression PATHMOX
fib.reg.pathmox = reg.pathmox(Satisfact~.,data=data.fib,segvar,
	signif=0.05,deep=2,method="lm",size=0.15)
# }
# NOT RUN {
 
data(fibtelereg)
#identify the segmentation variables  
segvar= fibtelereg[,3:4]
#select the variables
data.fib=fibtelereg[,12:18]          
fib.reg.pathmox=reg.pathmox(Satisfact~.,data=data.fib,segvar,
	signif=0.05,deep=1,method="lm",size=0.15)
# }
Run the code above in your browser using DataLab