1.1 数据分析的未来/1
1.2 工欲善其事必先利其器/2
1.3 数据统计分析语言R简介/10
2.1 统计数据/21
2.2 收集数据/22
2.3 数据管理/24
3.1 基本方法/31
3.2 数据选择/38
3.3 数据转换/42
3.4 数据整理/46
4.1 基本图形显示函数/50
4.2 单变量(向量)数据分析/55
4.3 多变量(数据框)数据分析/67
5.1 随机变量及其分布/79
5.2 随机抽样与随机数/86
5.3 统计量及其抽样分布/89
6.1 正态总体的参数估计/98
6.2 正态总体的假设检验/101
6.3 分布自由的非参数统计/106
7.1 相关分析模型/115
7.2 回归分析模型/120
7.3 数据分类与模型选择/133
8.1 R语言的编程概述/144
8.2 R语言高级编程举例/159
8.3 R语言高级绘图功能/164
8.4 R语言统计模拟实验/176
9.1 R语言中数据库的使用/192
9.2 调查数据的设计与分析/195
9.3 生成统计分析报告/201
rm(list=ls()) #清理内存
options(digits=4) #输出结果位数
library(dstatR)
X=c(164,162,186,165,165,187,169,151,157);X
UG=read.csv('UnderGraduate.csv') #大学生个人信息数据
UG
head(UG)
tail(UG)
dim(UG)
names(UG)
summary(UG)
t.test(height~sex,data=UG)
fm=lm(weight~height,data=UG);fm
summary(fm)
plot(weight~height,data=UG);abline(fm) #模型方程
x=c(1,3,5,7,9,2,4,6,8);x
i=1:9;i
j=9:1;j
seq(0.5,9.5,length=20)
df=data.frame(x,i,j);df
UG1=data.frame(g=UG$sex,x=UG$height,y=UG$weight)
head(UG1) #当数据较多时,可用head 显示数据集的前6行,等价于UG[1:6,]
UG2=UG[,c('sex','height','weight')]
head(UG2)
UG3=UG[1:6,1:5]
UG3
Sq.sum <- function(x) {
S=sum(x^2) # S=???x2
S # return(S)
}
Sq.sum <- function(x){ sum(x^2) }
Sq.sum(1:9)
Sq.sum (UG$height)
welcome <- function() print("welcome to use R")
welcome()
welcome <- function(names) print(paste("welcome",names,"to use R"))
welcome("Mr fang")
welcome("Mr Wang")
welcome()
w
------RStudio is an integrated development environment (IDE) for R
可在左上方代码框中修改代码、保存代码、执行代码(Ctrlt+R)