- 在线时间
- 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() #四舍五入; r2 z; R& I: K6 J: ?1 g
例:x <- c(3.1416, 15.377, 269.7)
% ]1 L) C5 ~3 V7 G4 i* t: i' fround(x, 0) #保留整数位
7 X' }) {) H1 H7 U+ k! _round(x, 2) #保留两位小数
. W7 v0 _' `$ ^- z3 y. a8 }0 a& W6 Rround(x, -1) #保留到十位3 C; X6 L8 C e. u X3 s; F! o- ?
% @, j' W7 Z( y J9 Z, S
2、signif() #取有效数字(跟学过的有效数字不是一个意思)
0 i* p' q% M/ p% {例:略
. p2 t0 C4 @$ T4 [/ [0 v3 c0 j' ^$ G) S( {, l7 f f( c& p
3、trunc() #取整
0 _' u5 y d( O- D floor() #向下取整
) x1 b2 c7 a( M* b+ z: x/ t ceiling() #向上取整
6 Y: t7 o/ d- x. D+ `例:xx <- c(3.60, 12.47, -3.60, -12.47)
+ k2 q5 }6 h9 Mtrunc(xx)
6 ]+ f3 q2 {- G' ^, V) c9 a* L9 Sfloor(xx)$ v; u- j* a9 e- d4 V' \8 }! a
ceiling(xx)) p! L8 n2 g6 [
. X- E( X9 B/ s! Z F! J: q. c
4、logb(a, b) #以b为底的对数,省略b表示自然对数
4 N. H' @. }! d! A+ U log() #自然对数
$ w2 \, Y2 f' r. H, Y2 e/ \1 o; W+ e2 q* x log10() #以10为底的常用对数9 z6 h$ m% Q- s4 C
例:logb(8, 2)! G" S/ _2 \8 L( T3 J# \0 o
log(8); logb(8)
' Q5 ?" C4 F' t9 _7 klog10(100); logb(100, 10)
+ z: z m: ]- y3 k. H0 Y$ J% y
, y! b. b, K0 Z- ^; T3 t: b5、sqrt() #平方根( X2 `% i; G$ L c4 Q/ R' C
exp() #指数: L. q7 `2 q) U" `. z6 O
/ u. h# L; y8 r7 E' v, U9 _
6、sin() #正弦
( u& N. z1 I7 T* W$ U cos() #余弦, d* W8 u) ?+ X b& D1 s
tan() #正切
& N/ [* u% z7 Q/ x! v$ Z asin() #反正弦
9 T6 T# n1 ]! _& O acos() #反余弦
# n2 \: @$ y1 @' U atan() #反正切9 L3 |7 H+ g/ t% N9 L
sinh() #双曲正弦; R9 [, o d. T& q5 T
tanh() #双曲正切8 x% x! r. a; N
6 G( l8 | e% q! Z. {! i' H7、nchar() #字符长度
3 |* I% L9 E* \5 d% k例:xx <- 'China is a great country'
4 @6 Y4 ]( s' C2 A' jnchar(xx)/ {. N/ D# Q1 X. J; V
4 ?% s0 ?- L1 T( l
8、substring() #取子字符串
9 M* Z T0 Z1 r) o1 e2 ]+ V' p2 O$ I: Q) e例:substring(xx, 1, 5)
5 ^9 N# o! l* f) {* h& p5 f' z) H/ a% o+ n! @0 A+ L* X
9、paste() #连接字符. U p1 t) Q0 C6 q3 P
语法是:paste(..., sep = " ", collapse = NULL)
) _9 {- i7 G. C例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'1 T4 ?& I& Q7 [+ S: X# `
paste(x, y, z, d)
* l" G8 j' y5 j+ _! X例2:paste(c('x', 'y'), 1:4, sep = '')( c0 s3 }9 y' ]! _+ X
例3:paste('x', 1:4, sep = '', collapse = '+')
2 T) T4 \7 v+ |
7 w n& c" h/ T9 {% k3 i! Y" s; J |
zan
|