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"