{
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "_cell_guid": "3a1ddc90-8eba-d633-430d-ad8742c8fd98"
      },
      "source": [
        "Hey everyone, \n",
        "\n",
        "Here is my first post at Kaggle.  \n",
        "\n",
        "In this Kernel, I used just one algorithms, random forest, for training data. And the results got 96.77% accuracy from my local PC. "
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "d318efd2-ef60-240a-5a91-9abeebce4ea5"
      },
      "outputs": [],
      "source": [
        "Date: 09/28/2016\n",
        "Author: Austin\n",
        "\n",
        "library(randomForest)\n",
        "\n",
        "# Read competition data files:\n",
        "train <- read.csv(\"../input/train.csv\", header=TRUE)\n",
        "test <- read.csv(\"../input/test.csv\", header=TRUE)\n",
        "\n",
        "# convert label from number to factor\n",
        "train$label <- as.factor(train$label)\n",
        "\n",
        "# run random forest classification\n",
        "model.rf <- randomForest(label~., data = train, tree = 100)\n",
        "\n",
        "print(model.rf$confusion)\n",
        "\n",
        "# predict\n",
        "test.pred <- predict(model.rf, test)\n",
        "submission <- data.frame(ImageId = 1:length(test.pred), Label = test.pred)\n",
        "\n",
        "# output\n",
        "write.csv(submission, file = \"./submission.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.1"
    }
  },
  "nbformat": 4,
  "nbformat_minor": 0
}