R基础for、while、自定义函数

###6.R语言与统计####

###7.循环与自定义函数####
#7.1 for循环####

example("for")

for(i in 1:5)  print(1:i)    #循环遍历每个数，每取出一个数，就打印一个向量

for(n in c(2,5,10,20,50)) {  #循环遍历向量中的没一个数
  x <- stats::rnorm(n)       #生成含有n个数的正态分布，n是上面循环遍历的那个数
  cat(n,":", sum(x^2),"
")  #对应每一个数n，计算生成的正态分布数组的平方和
}
#cat 起连接的作用，上例中：个数 ：x的平方和 换行

f <- factor(sample(letters[1:5], 10, replace = TRUE));f  #抽样，生成字母序列

for(i in unique(f)) print(i)#依次取出序列中的每一个独有的值

#7.2 while语句####
v <- c("Hello","while loop")
cnt <- 2

while (cnt < 7) {
  print(v)
  cnt = cnt + 1
}

a <- c(1:5)
i<-1
while(a[i]<5){
  print(a[i])
  i=i+1
}
#取向量的最后一个元素
b[length(b)]
tail(b,1)
#7.3 自定义函数####

myfun_cv<-function(x){ #函数在R中也是一个对象
  cv<-sd(x)/mean(x)    #函数的语句体用来计算变异系数
  return(cv)           #函数执行完毕后返回cv值，该值就是变异系数
}

#测试该函数
a<-c(1,2,5,8,9,6)      #生成一个向量  
myfun_cv(a)            #调用自定义的函数来计算变异系数