{
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "_cell_guid": "fc972857-8a1d-dcf3-2dc2-e69dfeb039b2"
      },
      "source": [
        "Four sub-images in train_wkt are from these two images. There are several images seem to be taken at the same location but in different seasons."
      ]
    },
    {
      "cell_type": "code",
      "execution_count": null,
      "metadata": {
        "_cell_guid": "74b41fe0-1039-f016-05b0-e78e7eb7ec38"
      },
      "outputs": [],
      "source": [
        "# @JeffH\n",
        "\n",
        "tokeep <- list.files(path=\"../input/three_band/\", pattern=\"6110\", full.names=T, recursive=FALSE)\n",
        "\n",
        "library(raster)\n",
        "  par(mfrow = c(5,5))\n",
        "  par(mar = rep(0,4), oma = rep(0,4)) # c(0.1,0.1,0.1,0.1)\n",
        "  for(i in tokeep){\n",
        "    img <- stack(i)\n",
        "    plotRGB(img, stretch = \"lin\") # plot(img, axes = FALSE, legend = FALSE)\n",
        "  }\n",
        "\n",
        "tokeep <- list.files(path=\"../input/three_band/\", pattern=\"6140\", full.names=T, recursive=FALSE)\n",
        "\n",
        "  for(i in tokeep){\n",
        "    img <- stack(i)\n",
        "    plotRGB(img, stretch = \"lin\") # plot(img, axes = FALSE, legend = FALSE)\n",
        "  }"
      ]
    }
  ],
  "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
}