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
>