s <- '1234567' substr(s, 2, 5) [1] "2345"
crossprod(a,b)
等价于t(a)%*%b
scale <- function (x, center = TRUE, scale = TRUE)
中心化即减去均值,标准化即减去均值除以标准差