- 在线时间
- 27 小时
- 最后登录
- 2013-5-20
- 注册时间
- 2012-11-2
- 听众数
- 15
- 收听数
- 1
- 能力
- 0 分
- 体力
- 3870 点
- 威望
- 0 点
- 阅读权限
- 60
- 积分
- 1335
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 347
- 主题
- 320
- 精华
- 0
- 分享
- 0
- 好友
- 6
升级   33.5% TA的每日心情 | 奋斗 2013-6-15 16:58 |
|---|
签到天数: 24 天 [LV.4]偶尔看看III
 群组: 第四届数学中国美赛实 |
|
R语言入门基础教程:常用运算函数。对一般数据进行运算的常用函数: 1、round() #四舍五入 n$ r6 X2 o/ ^; k. b
例:x <- c(3.1416, 15.377, 269.7)
3 y: C2 }, `5 v& `) K0 [! a- Jround(x, 0) #保留整数位
5 b# ?" u0 e+ D; \" w6 _8 x1 p; }round(x, 2) #保留两位小数; z( _3 @7 K6 y" q6 [0 o/ ~
round(x, -1) #保留到十位8 P: o4 r3 g* e$ w
/ }! b- p+ N) k/ @. z6 q2、signif() #取有效数字(跟学过的有效数字不是一个意思)5 Q5 u$ }. H2 y1 J
例:略4 P6 e" Y1 D+ `5 q
" q) z: A: W+ h* p# ?! _3、trunc() #取整( f8 `1 `& |! A3 S( N
floor() #向下取整$ l' h+ [8 l# s+ t- f Z+ w5 @) k( R
ceiling() #向上取整
* @: ], `7 J7 F3 _! W6 s例:xx <- c(3.60, 12.47, -3.60, -12.47)8 [: V( _9 u* o+ [ |7 a3 o6 H: g( V
trunc(xx)
0 R1 b6 n" g7 j) b" K0 y. Wfloor(xx)+ o0 D6 v& v5 s. z/ E
ceiling(xx)' }; I# F- r; z
/ H) f" h; x" F: p
4、logb(a, b) #以b为底的对数,省略b表示自然对数
7 U8 ^* v0 ^( b, [% b3 |: @/ z$ E log() #自然对数
* N% q }1 {) N: ?& D0 g# E* q log10() #以10为底的常用对数* h- P2 N ^4 n8 D" Y( K
例:logb(8, 2)" I4 S- W5 x( M5 o0 R% h$ ^2 f5 d9 d! r3 ]
log(8); logb(8)
4 j2 v J; I- rlog10(100); logb(100, 10)* }# ^6 P: k: L! Q, d1 v0 H3 N
$ i- L; a5 `$ q( p
5、sqrt() #平方根8 R0 R) M; U% Y* B$ S7 m- ^
exp() #指数
5 `& Z! A/ L& n, N2 z5 q. R0 h9 c, @2 m7 w, w
6、sin() #正弦8 j- l( a2 a2 C/ h4 u- f
cos() #余弦* B% ]9 S4 I* q' G0 g
tan() #正切* c/ M+ Q8 r: x/ L2 V7 g, @6 T# |
asin() #反正弦
' v8 o/ `5 Q. d0 b/ T2 a. s acos() #反余弦+ Q. \5 z+ I5 k; @
atan() #反正切
% X& ?7 v9 E4 S9 e sinh() #双曲正弦 g4 k, l5 C( e) b7 R" _; D7 z
tanh() #双曲正切
, z8 T# m% S7 h( p' E9 z) O2 C5 T) J7 ?8 g" ?4 a. I# r- D
7、nchar() #字符长度
, y! _' L9 o' |; }例:xx <- 'China is a great country'# e% v1 S5 `* k8 x
nchar(xx)
0 X1 B7 y/ ~; Y6 Y
. F+ N3 v2 b; |! f q) v! `8、substring() #取子字符串' d5 R/ g& s) \% L" O* n
例:substring(xx, 1, 5)
" M+ [) a1 g8 G6 T+ x9 U. l( c
; S* P9 o4 C4 t4 b: e% V0 m& v9、paste() #连接字符7 N" Z" R3 G9 t! @8 t
语法是:paste(..., sep = " ", collapse = NULL)! H! P3 O, e! X9 S3 K( o9 X$ A+ w
例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'
0 r% h3 E/ U `3 R8 Kpaste(x, y, z, d)
6 O( G! F5 l: L例2:paste(c('x', 'y'), 1:4, sep = '')
1 `" \. h* T5 k% R例3:paste('x', 1:4, sep = '', collapse = '+')
& B- q6 N5 [# `4 Z. L4 ^5 p, X' V7 l! T- [- \
|
zan
|