library(xlsx)
## Warning: package 'xlsx' was built under R version 4.1.2
library(stats)
mydata <- read.xlsx("data/Data-with-Codes.xlsx", 1)
head(mydata)
## PARTICIPANT.IDENTIFIER. SEX..Female...1..Male...2.
## 1 1 2
## 2 2 2
## 3 3 2
## 4 4 2
## 5 5 2
## 6 6 1
## AGE..days...0.7.1..8.14.2..15.21.3..22..4
## 1 1
## 2 1
## 3 1
## 4 1
## 5 3
## 6 1
## BIRTHWEIGHT..1.HBW..2..NBW..3.LBW..4.VLBW..5.ELBW.
## 1 2
## 2 3
## 3 1
## 4 2
## 5 2
## 6 2
## GESTATIONAL.AGE..1..26.30..2.31.35..3.36.40..4..41.
## 1 3
## 2 3
## 3 3
## 4 4
## 5 4
## 6 3
## MODE.OF.DELIVERY..NVD.1..CS.2. CURRENT.MODE.OF.FEEDING..Cup.1..Tube.2..BF.3.
## 1 1 3
## 2 1 1
## 3 1 1
## 4 2 3
## 5 1 3
## 6 1 1
## Dysphagia.Present...Yes.1..No.2.
## 1 1
## 2 1
## 3 1
## 4 2
## 5 2
## 6 2
## MORBIDITIES.AT.BIRTH..NNE.1..NNJ.2..NNS.3..Septicaemia.4..Prematurity.5..Meningitis.6..Hypoglycaemia.7..Abnormal.Heartrate.8.
## 1 1
## 2 5+3
## 3 4
## 4 8+7+1+4
## 5 1
## 6 1