Exercise1

Q1.

hospital_dataf <- data.frame(patientnames= c("John", "Paul", "Marthe", "Joy"), age= c(21, 34, 28, 49), dpt= c("ICU", "Surgery", "IM", "Pediatrics"))

hospital_dataf

##   patientnames age        dpt
## 1         John  21        ICU
## 2         Paul  34    Surgery
## 3       Marthe  28         IM
## 4          Joy  49 Pediatrics

mean(hospital_dataf$age)

## [1] 33

Average<- sum(hospital_dataf$age)/length(hospital_dataf$age)
Average

## [1] 33

summary(hospital_dataf)

##  patientnames            age            dpt           
##  Length:4           Min.   :21.00   Length:4          
##  Class :character   1st Qu.:26.25   Class :character  
##  Mode  :character   Median :31.00   Mode  :character  
##                     Mean   :33.00                     
##                     3rd Qu.:37.75                     
##                     Max.   :49.00

str(hospital_dataf)

## 'data.frame':    4 obs. of  3 variables:
##  $ patientnames: chr  "John" "Paul" "Marthe" "Joy"
##  $ age         : num  21 34 28 49
##  $ dpt         : chr  "ICU" "Surgery" "IM" "Pediatrics"

dim(hospital_dataf)

## [1] 4 3

median(hospital_dataf$age)

## [1] 31