- 在线时间
- 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() #四舍五入
! x! c& M5 w/ ^7 z例:x <- c(3.1416, 15.377, 269.7)
" _9 k8 z4 x6 v% H- v: f. _round(x, 0) #保留整数位
, r, m: S$ b; @round(x, 2) #保留两位小数
- E3 M8 V2 v4 i% kround(x, -1) #保留到十位& Q# z% m5 |0 g# A; t
! F+ p5 B6 @6 I3 B- [
2、signif() #取有效数字(跟学过的有效数字不是一个意思)
# o6 D. y' V9 n例:略* |! g* c [. M( M( X1 q8 p
4 C. w, G% q6 m0 J( k! G3、trunc() #取整
; ^" ?. v, c2 K# f floor() #向下取整 C* M: Z6 u. `4 G1 a
ceiling() #向上取整; c% ~ k2 q( @
例:xx <- c(3.60, 12.47, -3.60, -12.47)
" w5 }& d0 q' i9 e8 `: n Otrunc(xx)# h: m# O- V( H8 W( b# l
floor(xx)
/ z' \+ q" g; J% Bceiling(xx)1 d# }( W* y9 W$ a7 v& H
! c1 j, K: o! k$ B4、logb(a, b) #以b为底的对数,省略b表示自然对数
+ W0 Q( |9 @% G: N0 C log() #自然对数4 f3 o' J! S V6 h0 O0 w; `
log10() #以10为底的常用对数
4 W& E2 h- S* {8 j+ f; {5 k例:logb(8, 2)/ J- g$ A0 x& e/ R- T! L
log(8); logb(8)& q$ ]6 v& {* t
log10(100); logb(100, 10)' u) b- X5 G% m0 O9 _7 K/ H+ V- v
; I4 z6 v) W3 ]
5、sqrt() #平方根- B) n) Z$ T' Z u' k/ |
exp() #指数
9 |; C( q+ j4 g& v K% Z% V2 z% o
# X4 [* w1 j' } h6、sin() #正弦% a8 d8 [; n3 U( I2 v: a2 T( P
cos() #余弦
$ |, |$ {0 Q1 Y$ h. q tan() #正切
2 d1 ^+ N( p/ u' q5 a& c5 [ asin() #反正弦
( D+ Y+ c4 p, c acos() #反余弦# T4 \* S3 ~1 D% h5 e( Z
atan() #反正切
9 \6 W% E$ Y& ` sinh() #双曲正弦
9 Z7 m! g( a( I2 B0 W tanh() #双曲正切: `8 M+ q) o* _& ?
$ V6 a5 B7 g. z0 w$ Y9 m1 j
7、nchar() #字符长度/ E E" ]! B, o! s3 [& V ?: F8 D- X
例:xx <- 'China is a great country'
% ?3 j2 `& t# ?nchar(xx); ` H1 J+ G. ~0 E
8 ]' {# h0 `, Q; V; ~4 E/ ^8、substring() #取子字符串/ k% b' j: @5 Y" O3 v
例:substring(xx, 1, 5)
1 a, F. [4 Y2 Q' d9 D: O) Y. T- ^0 c, D" [8 W
9、paste() #连接字符
. V7 _( w+ H2 ]3 z+ X6 s语法是:paste(..., sep = " ", collapse = NULL)6 ?7 {, e o! M
例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'
$ c4 W% q, h8 ]1 |paste(x, y, z, d)) u0 B9 t. j2 q/ M! f
例2:paste(c('x', 'y'), 1:4, sep = '')
$ | p7 T: {0 d l) o1 P例3:paste('x', 1:4, sep = '', collapse = '+')
* C- A d% V% X3 y
. h2 }8 X# d7 W5 `+ s |
zan
|