Diffrents between gini, information gain and sum of square of errors in rpart R












1















I made a short code in R to check how split criterias work. I got unexpected results, all of them choose the same value to split. Can someone explain it? Here is the code:



set.seed(1)
y <- sample(c(1, 0), 10000, replace = T)
x <- seq(1, 10000)
data <- data.frame(x, y)

library(rpart)
rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))









share|improve this question





























    1















    I made a short code in R to check how split criterias work. I got unexpected results, all of them choose the same value to split. Can someone explain it? Here is the code:



    set.seed(1)
    y <- sample(c(1, 0), 10000, replace = T)
    x <- seq(1, 10000)
    data <- data.frame(x, y)

    library(rpart)
    rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
    rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
    rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))









    share|improve this question



























      1












      1








      1


      1






      I made a short code in R to check how split criterias work. I got unexpected results, all of them choose the same value to split. Can someone explain it? Here is the code:



      set.seed(1)
      y <- sample(c(1, 0), 10000, replace = T)
      x <- seq(1, 10000)
      data <- data.frame(x, y)

      library(rpart)
      rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
      rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
      rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))









      share|improve this question
















      I made a short code in R to check how split criterias work. I got unexpected results, all of them choose the same value to split. Can someone explain it? Here is the code:



      set.seed(1)
      y <- sample(c(1, 0), 10000, replace = T)
      x <- seq(1, 10000)
      data <- data.frame(x, y)

      library(rpart)
      rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
      rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
      rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))






      r split rpart






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited Nov 21 '18 at 12:50







      Robert

















      asked Nov 21 '18 at 12:10









      RobertRobert

      83




      83
























          1 Answer
          1






          active

          oldest

          votes


















          0














          In my case only the last rpart command did split something:



          > set.seed(1)
          > y <- sample(c(1, 0), 1000, replace = T)
          > x <- seq(1, 1000)
          > data <- data.frame(x, y)
          > library(rpart)


          No split with split="gini":



          > rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          No split with split="information":



          > rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          There is a single split with split="anova":



          > rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, deviance, yval
          * denotes terminal node

          1) root 1000 249.6000 0.5200000
          2) x< 841.5 841 210.1831 0.5089180 *
          3) x>=841.5 159 38.7673 0.5786164 *


          As regards to why the split points can be in the same position, a couple of extract from the rpart documentation:




          • Gini measure vs. Information impurity (page 6): "For the two class problem the measures differ only slightly, and will nearly always choose the same split point."

          • Gini measure vs. [ANalysis Of] Variances (page 41): "... for the two class case the Gini splitting rule reduces to 2p(1 − p), which is the variance of a node."


          So it seems like in the case of two class problem the different measures may produce similar split points.






          share|improve this answer


























          • You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

            – Robert
            Nov 21 '18 at 12:49













          • should not* happen anymore

            – Robert
            Nov 21 '18 at 12:57











          • @Robert, edited the answer in order to try to explain why split points may occur at same positions.

            – Heikki
            Nov 21 '18 at 14:01











          • Thanks a lot! Its good to know it.

            – Robert
            Nov 21 '18 at 14:24











          Your Answer






          StackExchange.ifUsing("editor", function () {
          StackExchange.using("externalEditor", function () {
          StackExchange.using("snippets", function () {
          StackExchange.snippets.init();
          });
          });
          }, "code-snippets");

          StackExchange.ready(function() {
          var channelOptions = {
          tags: "".split(" "),
          id: "1"
          };
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function() {
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled) {
          StackExchange.using("snippets", function() {
          createEditor();
          });
          }
          else {
          createEditor();
          }
          });

          function createEditor() {
          StackExchange.prepareEditor({
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: true,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: 10,
          bindNavPrevention: true,
          postfix: "",
          imageUploader: {
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          },
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          });


          }
          });














          draft saved

          draft discarded


















          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53411765%2fdiffrents-between-gini-information-gain-and-sum-of-square-of-errors-in-rpart-r%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          0














          In my case only the last rpart command did split something:



          > set.seed(1)
          > y <- sample(c(1, 0), 1000, replace = T)
          > x <- seq(1, 1000)
          > data <- data.frame(x, y)
          > library(rpart)


          No split with split="gini":



          > rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          No split with split="information":



          > rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          There is a single split with split="anova":



          > rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, deviance, yval
          * denotes terminal node

          1) root 1000 249.6000 0.5200000
          2) x< 841.5 841 210.1831 0.5089180 *
          3) x>=841.5 159 38.7673 0.5786164 *


          As regards to why the split points can be in the same position, a couple of extract from the rpart documentation:




          • Gini measure vs. Information impurity (page 6): "For the two class problem the measures differ only slightly, and will nearly always choose the same split point."

          • Gini measure vs. [ANalysis Of] Variances (page 41): "... for the two class case the Gini splitting rule reduces to 2p(1 − p), which is the variance of a node."


          So it seems like in the case of two class problem the different measures may produce similar split points.






          share|improve this answer


























          • You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

            – Robert
            Nov 21 '18 at 12:49













          • should not* happen anymore

            – Robert
            Nov 21 '18 at 12:57











          • @Robert, edited the answer in order to try to explain why split points may occur at same positions.

            – Heikki
            Nov 21 '18 at 14:01











          • Thanks a lot! Its good to know it.

            – Robert
            Nov 21 '18 at 14:24
















          0














          In my case only the last rpart command did split something:



          > set.seed(1)
          > y <- sample(c(1, 0), 1000, replace = T)
          > x <- seq(1, 1000)
          > data <- data.frame(x, y)
          > library(rpart)


          No split with split="gini":



          > rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          No split with split="information":



          > rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          There is a single split with split="anova":



          > rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, deviance, yval
          * denotes terminal node

          1) root 1000 249.6000 0.5200000
          2) x< 841.5 841 210.1831 0.5089180 *
          3) x>=841.5 159 38.7673 0.5786164 *


          As regards to why the split points can be in the same position, a couple of extract from the rpart documentation:




          • Gini measure vs. Information impurity (page 6): "For the two class problem the measures differ only slightly, and will nearly always choose the same split point."

          • Gini measure vs. [ANalysis Of] Variances (page 41): "... for the two class case the Gini splitting rule reduces to 2p(1 − p), which is the variance of a node."


          So it seems like in the case of two class problem the different measures may produce similar split points.






          share|improve this answer


























          • You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

            – Robert
            Nov 21 '18 at 12:49













          • should not* happen anymore

            – Robert
            Nov 21 '18 at 12:57











          • @Robert, edited the answer in order to try to explain why split points may occur at same positions.

            – Heikki
            Nov 21 '18 at 14:01











          • Thanks a lot! Its good to know it.

            – Robert
            Nov 21 '18 at 14:24














          0












          0








          0







          In my case only the last rpart command did split something:



          > set.seed(1)
          > y <- sample(c(1, 0), 1000, replace = T)
          > x <- seq(1, 1000)
          > data <- data.frame(x, y)
          > library(rpart)


          No split with split="gini":



          > rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          No split with split="information":



          > rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          There is a single split with split="anova":



          > rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, deviance, yval
          * denotes terminal node

          1) root 1000 249.6000 0.5200000
          2) x< 841.5 841 210.1831 0.5089180 *
          3) x>=841.5 159 38.7673 0.5786164 *


          As regards to why the split points can be in the same position, a couple of extract from the rpart documentation:




          • Gini measure vs. Information impurity (page 6): "For the two class problem the measures differ only slightly, and will nearly always choose the same split point."

          • Gini measure vs. [ANalysis Of] Variances (page 41): "... for the two class case the Gini splitting rule reduces to 2p(1 − p), which is the variance of a node."


          So it seems like in the case of two class problem the different measures may produce similar split points.






          share|improve this answer















          In my case only the last rpart command did split something:



          > set.seed(1)
          > y <- sample(c(1, 0), 1000, replace = T)
          > x <- seq(1, 1000)
          > data <- data.frame(x, y)
          > library(rpart)


          No split with split="gini":



          > rpart(y~x,data = data,parms=list(split="gini"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          No split with split="information":



          > rpart(y~x,data = data,parms=list(split="information"),method = "class",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, loss, yval, (yprob)
          * denotes terminal node

          1) root 1000 480 1 (0.4800000 0.5200000) *


          There is a single split with split="anova":



          > rpart(y~x,data = data,method = "anova",control = list(maxdepth = 1,cp=0.0001,minsplit=1))
          n= 1000

          node), split, n, deviance, yval
          * denotes terminal node

          1) root 1000 249.6000 0.5200000
          2) x< 841.5 841 210.1831 0.5089180 *
          3) x>=841.5 159 38.7673 0.5786164 *


          As regards to why the split points can be in the same position, a couple of extract from the rpart documentation:




          • Gini measure vs. Information impurity (page 6): "For the two class problem the measures differ only slightly, and will nearly always choose the same split point."

          • Gini measure vs. [ANalysis Of] Variances (page 41): "... for the two class case the Gini splitting rule reduces to 2p(1 − p), which is the variance of a node."


          So it seems like in the case of two class problem the different measures may produce similar split points.







          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Nov 21 '18 at 14:00

























          answered Nov 21 '18 at 12:33









          HeikkiHeikki

          1,2871018




          1,2871018













          • You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

            – Robert
            Nov 21 '18 at 12:49













          • should not* happen anymore

            – Robert
            Nov 21 '18 at 12:57











          • @Robert, edited the answer in order to try to explain why split points may occur at same positions.

            – Heikki
            Nov 21 '18 at 14:01











          • Thanks a lot! Its good to know it.

            – Robert
            Nov 21 '18 at 14:24



















          • You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

            – Robert
            Nov 21 '18 at 12:49













          • should not* happen anymore

            – Robert
            Nov 21 '18 at 12:57











          • @Robert, edited the answer in order to try to explain why split points may occur at same positions.

            – Heikki
            Nov 21 '18 at 14:01











          • Thanks a lot! Its good to know it.

            – Robert
            Nov 21 '18 at 14:24

















          You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

          – Robert
          Nov 21 '18 at 12:49







          You're right, (I added this control param to avoid it however it anyway happen sometimes - idk why), change the data size to 10 000 (its 1000) and it should happen anymore

          – Robert
          Nov 21 '18 at 12:49















          should not* happen anymore

          – Robert
          Nov 21 '18 at 12:57





          should not* happen anymore

          – Robert
          Nov 21 '18 at 12:57













          @Robert, edited the answer in order to try to explain why split points may occur at same positions.

          – Heikki
          Nov 21 '18 at 14:01





          @Robert, edited the answer in order to try to explain why split points may occur at same positions.

          – Heikki
          Nov 21 '18 at 14:01













          Thanks a lot! Its good to know it.

          – Robert
          Nov 21 '18 at 14:24





          Thanks a lot! Its good to know it.

          – Robert
          Nov 21 '18 at 14:24




















          draft saved

          draft discarded




















































          Thanks for contributing an answer to Stack Overflow!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid



          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function () {
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53411765%2fdiffrents-between-gini-information-gain-and-sum-of-square-of-errors-in-rpart-r%23new-answer', 'question_page');
          }
          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          MongoDB - Not Authorized To Execute Command

          How to fix TextFormField cause rebuild widget in Flutter

          in spring boot 2.1 many test slices are not allowed anymore due to multiple @BootstrapWith