# Mindanao State University
# Submitted by Mohammad L. Dapak & Jovel Jade Casidsid
library(readr)
CornPalay <- read_csv("CornPalay.csv")
## Rows: 256 Columns: 18
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (2): Crop, TypeCrop
## dbl (16): ARMM.Region, CORDILLERA.REGION..CAR., MIMAROPA.REGION, REGION.I..I...
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
data <- read.csv("CornPalay.csv")
dim(data)
## [1] 256 18
colnames(data)
## [1] "ARMM.Region" "CORDILLERA.REGION..CAR."
## [3] "MIMAROPA.REGION" "REGION.I..ILOCOS.REGION."
## [5] "REGION.II..CAGAYAN.VALLEY." "REGION.III..CENTRAL.LUZON."
## [7] "REGION.IV.A..CALABARZON." "REGION.IX..ZAMBO.Penin."
## [9] "REGION.V..BICOL.REGION." "REGION.VI..WEST.VISAYAS."
## [11] "REGION.VII..CENTRAL.VISAYAS." "REGION.VIII..EAST.VISAYAS."
## [13] "REGION.X..NORTHERN.MIN." "REGION.XI..DAVAO.REGION."
## [15] "REGION.XII..SOCCSKSARGEN." "REGION.XIII..CARAGA."
## [17] "Crop" "TypeCrop"
(Region <- length(data)-2)
## [1] 16
(crop <- unique(data$Crop))
## [1] "Palay" "Corn"
(typecrop <- unique(data$TypeCrop))
## [1] "Irrigated" "Rainfed" "White" "Yellow"
Crop_Typecrop <- list()
num_Region <- length(Region)
str(data)
## 'data.frame': 256 obs. of 18 variables:
## $ ARMM.Region : int 35615 28117 28316 40024 37811 33857 51104 45484 36413 34242 ...
## $ CORDILLERA.REGION..CAR. : int 44156 58373 29287 92503 42013 90937 30934 121299 32969 90545 ...
## $ MIMAROPA.REGION : num 97221 109447 65620 172723 93821 ...
## $ REGION.I..ILOCOS.REGION. : num 185215 68461 82150 517037 196722 ...
## $ REGION.II..CAGAYAN.VALLEY. : num 374342 521146 266236 456480 313519 ...
## $ REGION.III..CENTRAL.LUZON. : int 324251 606719 106113 675030 278590 652675 92594 842374 325127 601783 ...
## $ REGION.IV.A..CALABARZON. : num 97377 98076 36353 94874 75609 ...
## $ REGION.IX..ZAMBO.Penin. : int 85632 55102 84677 76316 63974 53113 91357 78238 90041 54469 ...
## $ REGION.V..BICOL.REGION. : num 107588 119342 115910 116043 108350 ...
## $ REGION.VI..WEST.VISAYAS. : int 253507 120417 343181 259667 263748 120581 315073 246357 284885 120270 ...
## $ REGION.VII..CENTRAL.VISAYAS.: int 32724 22924 20025 47851 37494 25781 18472 56301 40855 20013 ...
## $ REGION.VIII..EAST.VISAYAS. : num 98855 72483 51050 92031 105323 ...
## $ REGION.X..NORTHERN.MIN. : num 113282 113569 96241 138703 108920 ...
## $ REGION.XI..DAVAO.REGION. : int 105778 52556 67328 127240 106082 62949 89182 104754 114420 59975 ...
## $ REGION.XII..SOCCSKSARGEN. : int 234088 168143 308459 179248 298253 101398 335485 185396 316520 86345 ...
## $ REGION.XIII..CARAGA. : num 23962 81313 34426 81753 25109 ...
## $ Crop : chr "Palay" "Palay" "Palay" "Palay" ...
## $ TypeCrop : chr "Irrigated" "Irrigated" "Irrigated" "Irrigated" ...