- 1、本文档共45页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
[管理学]统计软件R 基本操作及简单画图
本节要点
R的向量及赋值运算
R的基本对象:向量,矩阵,数组,数据框
函数及自定义函数
关于画图: 基本命令及一些简单的参数
2018-3-8
1
TIPS 一些需要注意的点
2018-3-8
2
函数:f(x): 名字(变元)
getwd(); setwd(dir = “g:/2011stat”) #或setwd( g:/2011stat )
getwd()
x=rnorm(100)
ls()
?rnorm#或help(rnorm)
apropos(“norm“)
apropos() returns a character vector giving the names of all objects in the search list matching what.
find() is a different user interface to the same task.
# ctrl +l 清空控制台
# ctrl +R 运行控制台语句
大小写敏感
英文半角输入状态
赋值和运算
z = rnorm(1000000,4,0.1)
median(z)
赋值: “=”可以用“-”代替
x-z-y-w
赋值还可以采用函数进行
c()
assign()
简单数学运算有:+,-,*,/, ^,%*%,%%(mod) %/%(整数除法)等等
常用的数学函数有:abs , sign , log , log2, log10 , logb, expm1, log1p(x), sqrt , exp , sin , cos , tan , acos , asin, atan , cosh , sinh, tanh
2018-3-8
3
赋值和运算
round, floor, ceiling
gamma , lgamma, digamma and trigamma.
sum, prod, cumsum, cumprod
max, min, cummax, cummin, pmax, pmin, range
mean, length, var, duplicated, unique
union, intersect, setdiff
, =, , =, , |, !
2018-3-8
4
从高到低的运算次序
2018-3-8
5
一些基本运算例子
x=1:100
(x=1:100)
sample(x,20)
set.seed(0);sample(1:10,3)#随机种子!
z=sample(1:200000,10000)
z[1:10]#向量下标
y=c(1,3,7,3,4,2)
z[y]
2018-3-8
6
一些基本运算例子
z=sample(x,20,rep=T)
z
(z1=unique(z));length(z1)
z=sample(x,100,rep=T)
xz=setdiff(x,z)
sort(union(xz,z))
sort(union(xz,z))==x
setequal(union(xz,z),x)
intersect(1:10,7:50)
sample(1:100,20,prob=1:100)
2018-3-8
7
一些基本运算例子
pi * 10^2 #能够用?”*”来看基本算术运算方法
*(pi, ^(10, 2))
pi * (1:10)^2
x - pi * 10^2
x
print(x)
(x=pi * 10^2)
pi^(1:5)
print(x, digits = 12)
class(x)
typeof(x)
2018-3-8
8
一些基本运算例子
class(cars)
typeof(cars)
names(cars)
summary(cars)
str(cars)
row.names(cars)
class(dist ~ speed)
plot(dist ~ speed,cars)
2018-3-8
9
一些基本运算例子
head(cars)#cars[1:6,]
tail(cars)
ncol(cars);nrow(cars)
dim(cars)
lm(dist ~ speed, data = cars)
cars$qspeed =cut(cars$speed, breaks =quantile(cars$speed), include.lowest = TRUE)
names(cars)
cars[3]
table(cars[3])
is.factor(cars$qspeed)
plot(dist ~ qspeed, data = cars)
(a=lm(dist ~ qspeed, data = cars))
summaryu(a)
2018-3-8
10
一些基本运算例子
x
您可能关注的文档
最近下载
- 教育、科技、人才一体化与新质生产力发展.pptx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(研优卷).docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 教育、科技、人才一体化视域下发展新质生产力的四重逻辑和实践路径.docx VIP
- 《大棚番茄基质槽式栽培技术规程》.docx
- 立体车库 毕业论文外文翻译.docx VIP
- 教育、科技、人才一体推进新质生产力发展.docx VIP
- 2024年湖南水利水电职业技术学院单招职业技能测试题库含答案(考试直接用).docx VIP
- 社交礼仪教程(第7版 微课版)课件 第五章 餐饮礼仪.pptx
- 2025清华:DeepSeek从入门到精通.pdf
文档评论(0)