{
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "_cell_guid": "e629bf62-5e23-fa27-ffcc-0b8492d2704e"
      },
      "source": [
        "Defect after Defect"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "854d2cbe-f044-eb71-88b9-4bf5c610d8e5"
      },
      "outputs": [],
      "source": [
        "library(data.table)\n",
        "\n",
        "data <- fread(\"../input/train_numeric.csv\",select = c(\"Id\", \"Response\"));\n",
        "data <- data[,c('Id', 'Response')];\n",
        "data$nextId = data$Id + 1;\n",
        "IdList <- data[data$nextId %in% data$Id];"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "002b55c1-59d2-ad00-0f04-6956227ea08f"
      },
      "outputs": [],
      "source": [
        "\n",
        "data[Id %in% IdList$Id] -> current;\n",
        "data[Id %in% IdList$nextId] -> nextId;\n",
        "\n",
        "prob = table(current$Response,nextId$Response);\n",
        "\n",
        "prob1 = prob[2,2]/(prob[2,1]+prob[2,2]);\n",
        "prob2 = prob[2,1]/(prob[1,1]+prob[2,1]);\n",
        "\n",
        "print(\"Percentage of defect after defect\");\n",
        "print(prob1);\n",
        "\n",
        "print(\"Percentage of defect after no defect\");\n",
        "print(prob2);"
      ]
    }
  ],
  "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.2"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 0
}