- 在线时间
- 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() #四舍五入
' H# x g$ y- i. |+ r3 s例:x <- c(3.1416, 15.377, 269.7)2 ]! f2 z! `7 B! X- I; ~
round(x, 0) #保留整数位
' G/ l- y9 l3 V! \. W H3 \$ Wround(x, 2) #保留两位小数% W* F: @3 z9 e
round(x, -1) #保留到十位
( h+ Q* U) m7 {5 k7 Z- F7 E( O& c K. j
2、signif() #取有效数字(跟学过的有效数字不是一个意思)
% P- a4 ]" e2 |- X$ I/ o例:略1 y+ Z* G8 ~ X0 J: s
" z2 c: g9 k1 |* |4 r; @ t3、trunc() #取整1 u8 Z# [- g9 D; M
floor() #向下取整
' ~( e, a* h: }# r, ^ ceiling() #向上取整8 P, f- m! H$ v) B$ H$ P& H$ r* h
例:xx <- c(3.60, 12.47, -3.60, -12.47)0 L* z: h, c/ i @: T l
trunc(xx)$ G. k! N5 q( \ x$ B0 P8 l' H
floor(xx)
7 e# b0 J5 G0 i. H" \ceiling(xx)
8 e9 [# n2 Q- ^6 S2 x! ]0 k' a# ], J; w0 k9 ?
4、logb(a, b) #以b为底的对数,省略b表示自然对数
0 m) _5 G' x( U% S8 `: U! c7 L6 A log() #自然对数0 N, a! n3 W) K; f% Q j; |
log10() #以10为底的常用对数
' f' U3 N" g7 q; g5 a) g4 }例:logb(8, 2)
1 y, x" R7 l0 ?/ [log(8); logb(8)) j! W/ Q. v) e; ~2 `! b/ V) V
log10(100); logb(100, 10)7 c1 j- j3 {( v% D
: R6 N: B( S5 c3 ]5、sqrt() #平方根
. s( `% i6 X6 a! w7 E$ W exp() #指数
& m8 S! E: Z$ z* W% H
) |1 E& H: ]( f" n: h7 G! d+ e- Z) ?6、sin() #正弦6 N: k0 ]; C2 \2 c# B4 {
cos() #余弦
2 n% e& ?- e! j$ y4 R tan() #正切7 m& ?' B* W5 Z9 X y
asin() #反正弦+ R( S" o9 Z \0 K
acos() #反余弦7 z7 _0 F( I. |8 t
atan() #反正切
' d3 T% K7 q6 u- ? sinh() #双曲正弦, |: P6 {! Q2 A& l
tanh() #双曲正切
* H; P% M& J, b( O+ U1 P: D* t9 _, y1 H4 u& A7 {
7、nchar() #字符长度8 G: h. s! {! }
例:xx <- 'China is a great country'% A" ^; A+ y; G$ s
nchar(xx)9 n7 ?. z+ I' B- I2 g; q
. n& R; Z0 v) E2 M$ D8、substring() #取子字符串! x3 U) r# |; w. R3 s. T8 O. S! X
例:substring(xx, 1, 5)+ ^. {& [- N a5 n& J
2 {/ j) _3 Z4 a2 q* B9、paste() #连接字符
2 {! N. y$ t$ O) q6 M" A语法是:paste(..., sep = " ", collapse = NULL)
, S ]' v) U0 l- b例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'
4 `; s+ w5 ^8 m, I# w: m( Rpaste(x, y, z, d)
+ `- | Q0 o3 [, v3 g) b例2:paste(c('x', 'y'), 1:4, sep = '')
' r0 N& J6 T/ L, o; e }例3:paste('x', 1:4, sep = '', collapse = '+'): N/ h$ L) }# n6 x
) X5 U k+ }2 N, y) X4 ~
|
zan
|