例子数据:mvstats5.xlsx
例子代码:mvstats5.R
案例数据:mvcase5.xlsx
案例代码:mvcase5.R
习题数据:mvexer5.xlsx
自定义包:msaR.R
第五版可直接调用自定义函数 source("msaR.R")
library(openxlsx) #加载包openxlsx,需安装:install.packages('openxlsx')
d3.1=read.xlsx('mvstats5.xlsx','d3.1',rowNames=TRUE);d3.1
library(readxl) #加载包readxl, 需先安装包, install.packages('readxl')
d3.1=read_excel('mvstats5.xlsx','d3.1'); d3.1
source('msaR.R') #调用第五版自定义函数!
d3.1=msa.X(d3.1) #将第1列设为数据框行名
msa.X函数的源代码定义如下:
msa.X<-function(df){
X=df[,-1]; #去除第1列以外的所有数