R语言——第七课

'if else'
x = 4
if (x < 3) {
  print('x less than 3') 
} else {
  print('x not less than 3')
print('!') # 缩不缩进都行
}

x = c(1,2,3)
y = c(4,5,2)
(x > 2) & (y > 1)
(x > 2) && (y > 1) # 只能处理标量

# ifelse()
x = c(6:-4)
sqrt(x)
sqrt(ifelse(x>=0,x,NA)) # if x>=0 {print(x)} else {print(NA)}



'for和while'
for (I in 1:500){ # 单个语句不需要{}
  print(I)
  print('Interation one time finish')
}

n = 0
sum = 0
while (sum <= 1000){
  n = n+1
  sum = sum+n
}
print(n)      



'编写函数'
twosum = function(y1,y2){
  n1 = length(y1); n2 = length(y2)
  yb1 = mean(y1); yb2 = mean(y2)
  s1 = var(y1); s2 = var(y2)
  s = ((n1 - 1)*s1 + (n2 - 1) * s2 / (n1 + n2 - 2))
  tst = (yb1 - yb2) / sqrt(s * (1/n1 + 1/n2))
  return(tst)
}