- 在线时间
- 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() #四舍五入& `& g# a& J0 K9 j' v3 \0 S
例:x <- c(3.1416, 15.377, 269.7)2 f( U( Y" j/ L. c/ X
round(x, 0) #保留整数位; @9 d4 w; A# r: z! Y( M* B
round(x, 2) #保留两位小数: T& {! c+ ]; y) _; H1 y
round(x, -1) #保留到十位# T; G q% S: [5 Q/ l
$ C( |" b B- t; X) r2、signif() #取有效数字(跟学过的有效数字不是一个意思)
, i5 i+ G! a& Z p% _" X例:略
' f% O$ ]& v0 q3 ?% P3 ^
% l2 X/ L& h9 \0 w3、trunc() #取整7 f% S6 v/ n" | S6 L) k
floor() #向下取整
6 |8 d# V3 e4 X. {0 ` ceiling() #向上取整
$ M; b. c+ v \5 Z- y# `例:xx <- c(3.60, 12.47, -3.60, -12.47)
' T' z( \- C* w5 {# `: Z; Htrunc(xx), x: u9 n: E' W, b3 d
floor(xx)2 g; h2 U9 n: v) B6 U
ceiling(xx)
/ r$ p& m* r9 G' k9 _$ @. v( ^1 a: v( R8 r2 }
4、logb(a, b) #以b为底的对数,省略b表示自然对数. h, H' H _7 d( W- | r5 u( B
log() #自然对数( H9 H- t$ ?* _) c
log10() #以10为底的常用对数& w# ~# c% J/ H9 j- B3 {
例:logb(8, 2)
9 R2 {$ H6 z' b0 t zlog(8); logb(8)3 ?% F% V% a" x! G9 w- E
log10(100); logb(100, 10)
% z6 p. @: w5 k6 h6 e: {
, I3 _6 l" c3 n( C- |0 \5、sqrt() #平方根
+ S, K& R- f4 t, W* K. f exp() #指数
( m. U8 T. T! L W1 W$ }
5 h0 G7 p2 k1 l1 \3 I' h, ]6、sin() #正弦9 S* s; U) q3 `8 W$ g0 g
cos() #余弦
1 k4 }& g/ M8 g6 e0 p: R tan() #正切
, |; Z; q) }" s3 c asin() #反正弦
- B9 ?4 u) o' t4 U# l( { acos() #反余弦
5 Y* W# C5 K( s) X atan() #反正切6 x: n8 D0 W7 @* P1 G
sinh() #双曲正弦
: F" q+ l' Q+ r! G tanh() #双曲正切
& B# M8 w/ T" V" ?1 x! {
$ [8 k, Y" _4 e! w4 Y7、nchar() #字符长度+ n0 }' o9 r% m! }: @; ^
例:xx <- 'China is a great country'5 z: I+ q- N$ ?8 X7 N
nchar(xx)
) ]& X; w; ~, {4 h0 g1 V: K4 Y2 b: \) s- d
8、substring() #取子字符串- w" s) p$ g; f( H% S# c
例:substring(xx, 1, 5)2 f8 n( P! e# @ D8 D) {
! S5 ]! i6 h ~* ~! B" E9、paste() #连接字符( l2 ?. t1 \8 n/ [
语法是:paste(..., sep = " ", collapse = NULL)
# C: H; Y6 {2 o3 f) l' L例1:x <- 'I'; y <- 'am'; z <- 'a'; d <- 'student'
# J4 w3 h4 H/ z( c o" hpaste(x, y, z, d)
. a' j0 n6 Z W l u例2:paste(c('x', 'y'), 1:4, sep = '')
1 }; X* b" m: U4 J例3:paste('x', 1:4, sep = '', collapse = '+')
+ j, E8 b% K1 N, |- h; C
/ p$ u0 I K1 }; F8 e, s |
zan
|