hospital <- data.frame(
patientID = c(101,102,103,104,105),
patientName = c("Aman", "Riya", "Karan", "Neha", "Rohit"),
Gender = factor(c("Male", "Female", "Male", "Female", "Male")),
Ward = factor(c("General", "ICU", "General", "Private", "ICU")),
TreatmentCost = c(12000, 25000, 15000, 30000, NA),
MedicineCost = c(3000, 5000, 4500, 4560, 4500),
DaysAdmitted = c(4, 3, 6, 8, 6),
stringsAsFactors = TRUE
)
hospital
## patientID patientName Gender Ward TreatmentCost MedicineCost DaysAdmitted
## 1 101 Aman Male General 12000 3000 4
## 2 102 Riya Female ICU 25000 5000 3
## 3 103 Karan Male General 15000 4500 6
## 4 104 Neha Female Private 30000 4560 8
## 5 105 Rohit Male ICU NA 4500 6
str(hospital)
## 'data.frame': 5 obs. of 7 variables:
## $ patientID : num 101 102 103 104 105
## $ patientName : Factor w/ 5 levels "Aman","Karan",..: 1 4 2 3 5
## $ Gender : Factor w/ 2 levels "Female","Male": 2 1 2 1 2
## $ Ward : Factor w/ 3 levels "General","ICU",..: 1 2 1 3 2
## $ TreatmentCost: num 12000 25000 15000 30000 NA
## $ MedicineCost : num 3000 5000 4500 4560 4500
## $ DaysAdmitted : num 4 3 6 8 6
summary(hospital)
## patientID patientName Gender Ward TreatmentCost
## Min. :101 Aman :1 Female:2 General:2 Min. :12000
## 1st Qu.:102 Karan:1 Male :3 ICU :2 1st Qu.:14250
## Median :103 Neha :1 Private:1 Median :20000
## Mean :103 Riya :1 Mean :20500
## 3rd Qu.:104 Rohit:1 3rd Qu.:26250
## Max. :105 Max. :30000
## NA's :1
## MedicineCost DaysAdmitted
## Min. :3000 Min. :3.0
## 1st Qu.:4500 1st Qu.:4.0
## Median :4500 Median :6.0
## Mean :4312 Mean :5.4
## 3rd Qu.:4560 3rd Qu.:6.0
## Max. :5000 Max. :8.0
##
dim(hospital)
## [1] 5 7
nrow(hospital)
## [1] 5
ncol(hospital)
## [1] 7
colnames(hospital)
## [1] "patientID" "patientName" "Gender" "Ward"
## [5] "TreatmentCost" "MedicineCost" "DaysAdmitted"