R函数和控制流

R语言函数与控制流

函数定义和控制流

1.编写函数

#保存为 cal_T.R
#计算两样本的T统计量
#用关键字function声明一个名为cal_T的函数
cal_T <- function(x,y){    #该函数有两个形参x,y
  m <- length(x);n <- length(y)
  S <- ( (m-1) * var(x) + (n-1) * var(y)) / (m+n-2)
  T <- (mean(x) - mean(y)) / ( sqrt(S *( 1/m + 1/n)) )
  list(两样本的T统计量=T)
}

> A <- c(64,45,65,78,54,49,87,56,86,84,75,64,85,94,63,84,64)
> B <- c(53,45,75,65,34,76,45,64,65,75)
> source('~/Documents/R /cal_T.R') #加载函数
> cal_T(A,B) #调用函数
$两样本的T统计量
[1] 1.817069

> #在函数定义的时候可以使用位置参数,默认参数
> #函数的返回值是最后一个表达式的结果

2.控制流

> #条件表达式
> if(expr1){
>    expr2
> }else{
>    expr3
> }
> 
> if(3>2){print(T)}
[1] TRUE
> 
> > x <- 3
> y <- 2
> if(x<=y){
+     print(x)
+ }else{
+     print(y)
+ }
[1] 2
> 
> #for循环
> for(var in vector){
>     expr
> }
> 
> for(i in 1:3){print(i)}
[1] 1
[1] 2
[1] 3
> 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值