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") #對應每一個數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) #調用自定義的函數來計算變異系數