- 在线时间
- 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() #四舍五入
* |; Q8 H) g5 g' B: o( @# H2 W例:x <- c(3.1416, 15.377, 269.7)
0 b" G0 t3 r0 A7 R4 i6 n; [round(x, 0) #保留整数位" M8 D9 u& [+ {& J
round(x, 2) #保留两位小数( x6 ^0 q0 W" @9 j- J
round(x, -1) #保留到十位
# M) {2 |) e; p! M4 p
- M% @: `: i& T$ t2、signif() #取有效数字(跟学过的有效数字不是一个意思)
% S3 {6 |9 C0 O- a: _$ `' J+ U4 r例:略
- @- ^, d# q% n& e4 k
- P- X# D6 Y- x; O! o3、trunc() #取整, A Q$ A& V; z6 [6 a
floor() #向下取整
# y/ Y3 J2 p, W1 }8 W9 Y ceiling() #向上取整% b9 P" K7 N+ f* M
例:xx <- c(3.60, 12.47, -3.60, -12.47)
/ N3 ]7 ~( K! e" K2 atrunc(xx)) v% M7 e4 T0 {' r7 G) |
floor(xx)% ^% X- O) {3 H4 H+ |
ceiling(xx)( A+ z( B+ y; l: L# q) {
/ W. f" E. W$ X2 r
4、logb(a, b) #以b为底的对数,省略b表示自然对数& h+ C, F& g0 @
log() #自然对数1 j2 {) j- }' Z, I$ ~% B6 e
log10() #以10为底的常用对数
: X' k1 t- H2 r例:logb(8, 2)
# K [& ~: i C* \0 T. z5 mlog(8); logb(8)! s- U0 V" F8 o; R7 Y
log10(100); logb(100, 10)
2 x6 f0 }6 u. p8 s* a6 b3 L& {
o) q, x& O% @* d1 _5、sqrt() #平方根8 g& f4 o5 x- l9 @$ n& B
exp() #指数
3 @, f# e; W5 c) P0 L, Z p1 Z
' P, o7 _# k( R$ d6、sin() #正弦
; z, x/ A4 D/ C4 L/ j( H cos() #余弦0 |, ^/ G3 Z1 \. Q+ d0 t) z
tan() #正切
. E5 m _( ^6 A: }' i6 D+ N3 e asin() #反正弦$ N! N$ E' [) ^
acos() #反余弦
) b* a- O7 u9 s4 v! p A atan() #反正切
; {9 K) }- V7 w) J sinh() #双曲正弦
f; k5 E2 W4 P; \; ~% M/ f3 ? tanh() #双曲正切0 x- y* A9 h C# K" s+ C7 v2 u
% w6 G1 d: b x7、nchar() #字符长度
# J/ b+ n+ L6 D例:xx <- 'China is a great country'
- o) `0 M2 ?9 n/ R6 o c g' j; Ynchar(xx)
+ {2 H7 N9 E- |. [% c- g/ P4 b+ i7 v u( P4 f4 o% q. b- m
8、substring() #取子字符串8 c n6 _1 ?* s9 W& L9 t3 Y
例:substring(xx, 1, 5)7 }- D4 O2 e" A, M! i
% }/ J# E3 E7 \# J% \
9、paste() #连接字符, T) s! k9 x8 t0 _
语法是:paste(..., sep = " ", collapse = NULL)
d( u. c$ v# ^# l6 ^+ B例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'
7 h8 z- J; s% \. s+ Fpaste(x, y, z, d)
9 C5 j8 V+ D* Q: w例2:paste(c('x', 'y'), 1:4, sep = '')0 d) Z$ C/ P7 z/ z! F2 b# [
例3:paste('x', 1:4, sep = '', collapse = '+')' n# U. u" @2 ?; m' h, M! q2 ?7 G
5 b& m0 g( f( ~ E |
zan
|