lmdata1 <- data.matrix(lmdata)
center <- sweep(lmdata1, 2, apply(lmdata1, 2, min),'-')
R <- apply(lmdata1, 2, max) - apply(lmdata1,2,min)
lmdata2<- sweep(center, 2, R, "/")
center <- sweep(lmdata1, 2, apply(lmdata1, 2, min),'-')
R <- apply(lmdata1, 2, max) - apply(lmdata1,2,min)
lmdata2<- sweep(center, 2, R, "/")
lmdata2 <- data.frame(lmdata2)