#========= [ 8 ] USING DECISION TREE ============================ # decision tree를 사용한 변수가 관계 확인 후 다시 플로팅 require(party) hit3$AVG_RBI <- hit3$RBI / hit3$AB t1 <- ctree(AVG_RBI ~ AB + OBP + HR + AVG + SLG + OPS + BB + Pos + Team , data=hit3) plot(t1) plot(hit3$SLG, hit3$HR, col=ifelse(hit3$AVG_RBI>=0.2,"red","black")) # 타점생산은..