this is first few line
Sys.setlocale(locale = "persian")
dataset <- read_excel("E:.xlsx")
##split continuous features
continuous_dataset=dataset[,c(12,20,31,74,85,88,111,112,160,161,
163:169,171,174:196,198:211,238,240,249,254,
255,258,278,292,293,301,302,310,312,314)]
gsub("*", "", continuous_dataset)
continuous_dataset[] <- suppressWarnings(lapply(continuous_dataset, as.numeric))