{"cells":[
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "library(ggplot2) # Data visualization\nlibrary(readr) # CSV file I/O, e.g. the read_csv function\ntrain <- read_csv(\"../input/train.csv\",n_max=5000000)\ndim(train)"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "test <- read_csv(\"../input/test.csv\")\ndim(test)"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "head(train)"
 },
 {
  "cell_type": "code",
  "execution_count": null,
  "metadata": {
   "collapsed": false
  },
  "outputs": [],
  "source": "library(caret)\n\nfitControl <- trainControl(method = \"cv\",number = 5)\nmodel_glm <- train(Demanda_uni_equil~.,data=train, \nmethod = \"glmnet\", \ntrControl = fitControl,\nmetric = \"ROC\",\npreProc = c(\"center\", \"scale\"))\nmodel_glm"
 }
],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"}}, "nbformat": 4, "nbformat_minor": 0}