data(pts)
data(class)
MaxOrder <- 2
measure <- 1
SaveFileName <- ""
SNPNames <- c("rs1366208","rs1950123","rs10485136","rs1484673",
"rs1484433","rs1795462","rs10501558","rs2018041",
"rs10489495","rs3846302","rs2801008","0","rs1773409",
"rs4786670","rs2260614","rs1326298","rs9315726",
"rs1582545","rs10505084","rs4763023")
# Search Strategies
Effect <- ExhaustiveSearch(pts,class,MaxOrder,measure,0)
SingleEffect <- Effect$SingleEffect
TwoEffect <- Effect$TwoEffect
ThreeEffect <- Effect$ThreeEffect
FourEffect <- Effect$FourEffect
FiveEffect <- Effect$FiveEffect
# Normalization
Effect <- NormalizationEffect(MaxOrder,SingleEffect,TwoEffect,ThreeEffect,FourEffect
,FiveEffect,SaveFileName)
SingleEffect <- Effect$SingleEffect
TwoEffect <- Effect$TwoEffect
ThreeEffect <- Effect$ThreeEffect
FourEffect <- Effect$FourEffect
FiveEffect <- Effect$FiveEffect
# SNP Name Notation
Effect <- NotationName(MaxOrder,SingleEffect,TwoEffect,ThreeEffect,FourEffect
,FiveEffect,SNPNames)
SingleEffect <- Effect$SingleEffect
TwoEffect <- Effect$TwoEffect
ThreeEffect <- Effect$ThreeEffect
FourEffect <- Effect$FourEffect
FiveEffect <- Effect$FiveEffect
Run the code above in your browser using DataLab