{
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "_cell_guid": "ddf10312-5ae2-e040-8c6b-c2d751f05cff"
      },
      "source": [
        "# Bench Mark Model with Constant Prob"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "0d320829-149d-1f7c-8eb9-f5138de2e060"
      },
      "outputs": [],
      "source": [
        "# Log loss function is lowest for probability 0.35\n",
        "\n",
        "# This R environment comes with all of CRAN preinstalled, as well as many other helpful packages\n",
        "# The environment is defined by the kaggle/rstats docker image: https://github.com/kaggle/docker-rstats\n",
        "# For example, here's several helpful packages to load in \n",
        "\n",
        "library(ggplot2) # Data visualization\n",
        "library(readr) # CSV file I/O, e.g. the read_csv function\n",
        "\n",
        "# Input data files are available in the \"../input/\" directory.\n",
        "# For example, running this (by clicking run or pressing Shift+Enter) will list the files in the input directory\n",
        "\n",
        "system(\"ls ../input\")\n",
        "\n",
        "# Any results you write to the current directory are saved as output.\n",
        "\n"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "fcf8387b-388d-9819-1881-d25107a5f215"
      },
      "outputs": [],
      "source": [
        "#train <- read.csv(\"../input/train.csv\",nrow=100)\n",
        "test <- read.csv(\"../input/test.csv\")\n"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "42c115f5-9482-cbae-ff86-0809e764df9f"
      },
      "outputs": [],
      "source": [
        "submission <- test\n",
        "submission$question1 <- NULL\n",
        "submission$question2<- NULL\n",
        "submission$is_duplicate <- 0.35\n",
        "head(submission)"
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "79395b76-0743-cf20-0d6a-3e980f4be792"
      },
      "outputs": [],
      "source": [
        "write.csv(submission,\"benchmark.csv\",row.names=FALSE)"
      ]
    }
  ],
  "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.3"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 0
}