RASTER

LIBRERIAS R

library(readxl)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(graphics)

ENTORNO Y DATOS

ruta <- getwd()
carpeta <- 'Datos'
Archivo <- 'CAM.xlsx'
CAMimport <- paste0(ruta,'/',carpeta,'/',Archivo)
CAM <- read_xlsx(CAMimport)
mi.CAM <- CAM

mi.CAM$year<-substr(mi.CAM$Date,1,4)
mi.CAM$month<-substr(mi.CAM$Date,6,7)
enero <- filter(mi.CAM,month == '01')
filter(enero,year == '2011')

#filter(mi.CAM,year=='2009')