{
  "cells": [
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "55cd2dfa-94b2-28ce-208b-f236cc824323"
      },
      "outputs": [],
      "source": [
        "library(\"readr\")\n",
        "library(\"rio\")\n",
        "library(\"party\")\n",
        "library(\"rpart\")\n",
        "pools <- read.csv(\"../input/train.csv\",stringsAsFactors = FALSE, header=TRUE,nrow=1000)\n",
        "test <- read.csv(\"../input/test.csv\",stringsAsFactors = FALSE, header=TRUE,nrow=1000)\n",
        "\n",
        "names(pools)\n",
        "head(pools)\n",
        "tail(pools)\n",
        "cor(pools[,1:10])\n",
        "set.seed(1234)\n",
        "\n",
        "\n",
        "\n",
        "\n",
        "fit<-ctree(Demanda_uni_equil ~  Agencia_ID + Canal_ID + Ruta_SAK + Cliente_ID + Producto_ID,data=pools)\n",
        "print(fit)\n",
        "plot(fit, type=\"simple\")\n",
        "testPred<-predict(fit,newdata = test)\n",
        "View(testPred)\n",
        "row<-0:nrow(testPred)\n",
        "testPred<-cbind(id=row,testPred)\n",
        "testPred\n",
        "write.csv(testPred, file = \"../output/first.csv\")\n",
        "ncol(testPred)\n"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "9c6b08eb-d407-3db5-dfab-f33b5a75d7f9"
      },
      "outputs": [],
      "source": [
        ""
      ]
    }
  ],
  "metadata": {
    "_change_revision": 0,
    "_is_fork": false,
    "kernelspec": {
      "display_name": "R",
      "language": "R",
      "name": "ir"
    },
    "language_info": {
      "codemirror_mode": "r",
      "file_extension": ".r",
      "mimetype": "text/x-r-source",
      "name": "R",
      "pygments_lexer": "r",
      "version": "3.3.1"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 0
}