数据科学资源共享

“十二五”国家规划教材：高等教育出版社 2020.2 图书详情

参考教学大纲

《多元统计分析》教学大纲.doc

第五版云计算平台

https://www.jdwbh.cn/msaR

（第五版）配套资料：

例子数据：mvstats5.xlsx

例子代码：mvstats5.R

案例数据：mvcase5.xlsx

案例代码：mvcase5.R

习题数据：mvexer5.xlsx

自定义包：msaR.R

第五版可直接调用自定义函数 source("msaR.R")

（第五版）对应在线课程：

（1）中国大学MOOC： https://www.icourse163.org

（2） 学堂在线： https://next.xuetangx.com/course

电子表格数据的读取

下面以mvstats5.xlsx的d3.1数据读取为例。
数据格式见
详细操作见

读取方式一：使用openxlsx包, 并将第1列设为数据框行名, rowNames=TRUE

library(openxlsx) #加载包openxlsx，需安装：install.packages('openxlsx')
d3.1=read.xlsx('mvstats5.xlsx','d3.1',rowNames=TRUE);d3.1

读取方式二：使用readxl包, 并用函数msa.X将第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列以外的所有数