{"cells":[
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "## Load data\nlibrary(data.table)\ntrain <- fread('../input/train.csv', header=TRUE)\ntest <- fread('../input/test.csv', header=TRUE)"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "#generate sample train_samp\nnrow_train=nrow(train)\nh10<-sample(nrow(train),nrow_train/10)\nwrite.csv(train[h10,], \"train_samp.csv\",row.names = FALSE)"
 }
],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"}}, "nbformat": 4, "nbformat_minor": 0}