Load dataset
df <- read.csv('milk.csv')
head(df)## Buffalo_ID Feeding_Method Body_Weight.kg. Age.yrs. Temperature.C.
## 1 B001 Hay & Silage 450 5 30
## 2 B002 Grain Supplement 500 6 32
## 3 B003 Grass Pasture 470 4 28
## 4 B004 Total Mixed Ration 520 7 31
## 5 B005 Grain Supplement 480 6 33
## 6 B006 Hay & Silage 460 5 29
## Milk_Yield.L.day. Feed_Intake.kg.day. Water_Intake.L.day.
## 1 15 7 25
## 2 18 8 30
## 3 12 6 20
## 4 20 9 28
## 5 16 7 22
## 6 14 7 24
## Daily_Activity_Level Health_Status Total_Nutrient_Intake.g.
## 1 High Good 1200
## 2 Medium Average 1350
## 3 High Good 1100
## 4 Medium Good 1450
## 5 Low Poor 1300
## 6 High Good 1250
## Calcium_Intake.g.day.
## 1 18
## 2 20
## 3 17
## 4 22
## 5 19
## 6 18str(df)## 'data.frame': 60 obs. of 12 variables:
## $ Buffalo_ID : chr "B001" "B002" "B003" "B004" ...
## $ Feeding_Method : chr "Hay & Silage" "Grain Supplement" "Grass Pasture" "Total Mixed Ration" ...
## $ Body_Weight.kg. : int 450 500 470 520 480 460 490 510 550 475 ...
## $ Age.yrs. : int 5 6 4 7 6 5 4 7 8 6 ...
## $ Temperature.C. : int 30 32 28 31 33 29 27 30 34 30 ...
## $ Milk_Yield.L.day. : int 15 18 12 20 16 14 13 19 22 14 ...
## $ Feed_Intake.kg.day. : int 7 8 6 9 7 7 6 9 10 7 ...
## $ Water_Intake.L.day. : int 25 30 20 28 22 24 18 27 32 26 ...
## $ Daily_Activity_Level : chr "High" "Medium" "High" "Medium" ...
## $ Health_Status : chr "Good" "Average" "Good" "Good" ...
## $ Total_Nutrient_Intake.g.: int 1200 1350 1100 1450 1300 1250 1150 1400 1500 1220 ...
## $ Calcium_Intake.g.day. : int 18 20 17 22 19 18 16 21 23 19 ...