library(readxl)
cultivos <- read_excel("../data/unidad02/cultivos.xlsx", na = "-")
head(cultivos, 10)# A tibble: 10 × 8
prov dpto cultivo campaña sup_sembrada sup_cosechada prod rend
<chr> <chr> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
1 BUENOS AIRES 25 DE MA… Ajo 1969/70 3 3 10 3333
2 BUENOS AIRES 25 DE MA… Ajo 1970/71 1 1 3 3000
3 BUENOS AIRES 25 DE MA… Alpiste 1969/70 500 400 240 600
4 BUENOS AIRES 25 DE MA… Alpiste 1970/71 150 130 78 600
5 BUENOS AIRES 25 DE MA… Alpiste 1975/76 350 350 315 900
6 BUENOS AIRES 25 DE MA… Alpiste 1976/77 250 200 240 1200
7 BUENOS AIRES 25 DE MA… Alpiste 1977/78 150 150 180 1200
8 BUENOS AIRES 25 DE MA… Alpiste 1978/79 100 100 130 1300
9 BUENOS AIRES 25 DE MA… Alpiste 1979/80 100 100 120 1200
10 BUENOS AIRES 25 DE MA… Alpiste 1980/81 100 100 120 1200
