- 在线时间
- 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() #四舍五入
( J+ ^. y; x( c7 }+ Y1 I例:x <- c(3.1416, 15.377, 269.7)
% {- m# h3 R# s1 j3 u' ^+ {5 u% @% Fround(x, 0) #保留整数位 L- a$ _" p: t# ]
round(x, 2) #保留两位小数
8 I& d, C5 [. j) b ~, `round(x, -1) #保留到十位
$ A8 z l+ x2 e: T+ g
9 i# B+ H) H+ u# G- W8 i2 i2、signif() #取有效数字(跟学过的有效数字不是一个意思)
0 z5 Q$ \+ R) ^- B2 p, d例:略7 b1 L! G! l' j8 T: }
9 ?, J2 I* ?: S- W- g( L3 N! s. i3、trunc() #取整7 A1 t# y0 _) [( q% l$ {
floor() #向下取整
% X/ h" X: p; g7 G2 \5 i2 p' v/ Y ceiling() #向上取整
* R4 ^& S0 h" ~3 ?* h2 E例:xx <- c(3.60, 12.47, -3.60, -12.47)
( P! W# f7 U; g$ `9 Itrunc(xx)
0 p1 `7 Q- ?: s8 T2 Qfloor(xx)
0 s2 O, n; C% ]4 \# rceiling(xx)
0 L9 k( ^+ k" |7 K7 z& l! F" @# P2 {! q- V2 p
4、logb(a, b) #以b为底的对数,省略b表示自然对数
6 ]5 V0 m% v4 H0 ~/ X l log() #自然对数0 S7 Z( { H; g' A) |; y x2 }
log10() #以10为底的常用对数
& `% G2 x5 {9 B8 V/ L& _. N例:logb(8, 2)% ^* R G4 {7 u9 X( \5 f3 S1 l
log(8); logb(8)
2 g' T9 y; m. y. ^( w9 _" ilog10(100); logb(100, 10)
7 p$ y4 H8 v# B- ]9 L% i$ q+ t0 _8 w6 r0 @# ?' H
5、sqrt() #平方根
# f1 l7 j: {/ E( ? exp() #指数4 F, a E: E. e3 c7 l
& O4 r. G8 E8 a1 `& F0 F% J9 s6、sin() #正弦; G) ]7 t5 b/ I# q% q
cos() #余弦
8 t& y& T, @& o/ F' U7 ~; U tan() #正切9 m$ d% W; w" f8 w5 p
asin() #反正弦$ Y I# M0 g& k! S4 G, ~
acos() #反余弦8 ^5 y$ J/ |% Y
atan() #反正切: ?) f( r2 Q9 p: p4 Z! [: {# d
sinh() #双曲正弦( ?+ _) h% e: a9 U2 v7 @- `
tanh() #双曲正切
( Y. x; Z7 r5 H( `$ O
n7 p! W$ Q/ [7、nchar() #字符长度: f$ T* t/ d, B: j
例:xx <- 'China is a great country'
) k7 W+ N1 F% S/ u% F) f! E' i l) Ynchar(xx)
1 |4 [3 t9 | h3 N. u' h* K7 P
! A7 d9 w/ p6 g8 Y$ t" q) b) f8、substring() #取子字符串: f5 C) E2 b6 r- j( _8 f, Y1 d
例:substring(xx, 1, 5)
) ^ H6 P* D0 y- f% o3 v& A" Z0 o. _( Y l6 ?5 ]1 c! X
9、paste() #连接字符$ d$ @8 C& w8 [( k( u# Q
语法是:paste(..., sep = " ", collapse = NULL)
, Z( }- @* s# F8 M: U. U8 D例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'- p( q7 H& N/ p
paste(x, y, z, d)
: I0 A9 d2 ~2 d* \2 [, b例2:paste(c('x', 'y'), 1:4, sep = '')8 d4 _: \/ o* v; C6 Q
例3:paste('x', 1:4, sep = '', collapse = '+')8 _3 v: C7 Q8 Y
0 `. r9 K0 P: f" \& q% A |
zan
|