##Data cleaning

getwd()

## [1] "C:/Users/YSELoaner/Desktop"

A<-read.csv("D:/oct2023/All initial data set.csv")

Format variables name

A2<-clean_names(A)

**remove empty rows and column

A3<-remove_empty(A2, which = c (“rows”,“cols”), quiet = FALSE)

Duplicate rows remove A4<-distinct(A3)

remove Na

A5<-na.omit(A4)