library(readxl)
library(xlsx)
setwd("F:/7内蒙古区域区划课题/6数据库")
my_Data <- read_excel("内蒙古数据库.xls")
my_Data2 <- my_Data[,-(1:4)]
my_Data3 <- scale(my_Data2,center = T,scale = T)
write.xlsx(my_Data3,"归一化.xlsx",sheetName="归一化")library(readxl)
library(xlsx)
setwd("F:/7内蒙古区域区划课题/6数据库")
my_Data <- read_excel("内蒙古数据库.xls")
my_Data2 <- my_Data[,-(1:4)]
my_Data3 <- scale(my_Data2,center = T,scale = T)
write.xlsx(my_Data3,"归一化.xlsx",sheetName="归一化")