- 在线时间
- 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() #四舍五入
- h6 J) _ [8 C# y" N B例:x <- c(3.1416, 15.377, 269.7); w0 @/ @5 k7 ~- l
round(x, 0) #保留整数位' |% l& W- {; K
round(x, 2) #保留两位小数- X) n7 t9 ?5 G, g0 ?9 C
round(x, -1) #保留到十位% R: w) K4 T2 Z
; r% O6 J" K& q; Y' g# h+ N
2、signif() #取有效数字(跟学过的有效数字不是一个意思)% }/ \; ?$ t0 H9 s1 q3 L4 W
例:略: `; }' Q; \* L3 {8 e, K. m
) O4 m, O# A; P5 p3、trunc() #取整
+ o/ k- ]/ T' G1 I floor() #向下取整
1 y+ g5 n2 n8 {1 Z8 A2 F ceiling() #向上取整
1 a7 [+ j! ?% e- u# M' J& C1 l0 L2 ^例:xx <- c(3.60, 12.47, -3.60, -12.47)
% H4 ]5 a8 K4 z, E a" ktrunc(xx)
9 d* a$ i* T# `+ V& ?floor(xx)
) u; {, x9 A8 y1 j kceiling(xx)
' v/ O+ C& t4 L. ^
7 j; F. ^# Z3 c, t9 F4、logb(a, b) #以b为底的对数,省略b表示自然对数
: ]8 g- s h0 S# H0 P log() #自然对数6 N( d6 w/ ]7 |. o7 Q
log10() #以10为底的常用对数) ^% c( p* h8 {, F, N, s
例:logb(8, 2)% f7 l% T0 e/ [6 f' i" k
log(8); logb(8)
; A( L/ T# {6 K2 f. B7 m6 T" ?log10(100); logb(100, 10)& r4 v: |( u/ f# b
s% D+ K' I3 G% C. t7 t) i5、sqrt() #平方根
+ l" N1 e. h* i( r exp() #指数
4 Z% p6 ?, Y' O! E% r. k% U! {% ~5 n& l
6、sin() #正弦2 l+ E% a& u7 K& f* X
cos() #余弦% |: v( R" G7 F' `% D
tan() #正切; c. h6 H# Q4 ]( [
asin() #反正弦
d4 |: H# p, Z- B) W) t acos() #反余弦+ M$ J: h2 ?& m2 R' Q' \
atan() #反正切 A, G$ Q% C' W W! l5 A+ k& j
sinh() #双曲正弦
% V- a7 Y: l$ Z' Q/ } tanh() #双曲正切
5 o; F% Q! D z7 M8 m) a, b
( f% T9 v2 M1 a6 d# l j7 N7、nchar() #字符长度4 X3 e5 H& S5 e: `/ i3 k: P8 W
例:xx <- 'China is a great country'
" }" d& H. ^; Y' anchar(xx)7 L! _& U1 g. [: l( Y. e% P
) o$ b& B. z. q; O
8、substring() #取子字符串9 c9 A z" P9 f! {6 {( g' z
例:substring(xx, 1, 5)3 |" [9 q7 F" z. l+ ^/ }/ r# K
1 ]# R& J3 ^* }: M9、paste() #连接字符
; w5 P* v+ x' H. p) P. N3 E( H+ a4 h语法是:paste(..., sep = " ", collapse = NULL)9 H+ i/ t* P# o0 ?( U! P
例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'* A0 B: s8 Z: S) l, U
paste(x, y, z, d). W& C/ k2 v3 `- {1 R
例2:paste(c('x', 'y'), 1:4, sep = '')0 E$ Q( ~; X& `4 k, Q' Y$ \* t8 H
例3:paste('x', 1:4, sep = '', collapse = '+')
1 c& w( p' Q# Z# b& x* X, a! M/ g7 W/ T/ \% T
|
zan
|