x <- read.csv("Table231.csv")
x
attach(x)
z <- scale(x)
z