存在a.R裡面的指令碼檔案

 oddcount<-function(x){

  k<-0

  for(n in x){

    if(n%%2==1) k<-k+1

   }

   return(k)

  }

 如何呼叫

第一步：找到a.R檔案 1) source(“a.R”)  2) 先開啟指令碼檔案，然後點選上方的執行按鈕

第二步：在第一步沒有報錯的情況下，執行oddcount(向量引數)，然後就可以呼叫指令碼檔案   

        裡面的引數了

注意：函式也可以直接寫在控制檯，但是出錯後不好改，建議寫在指令碼檔案中

1、%%是取餘數的求模運算

2、  for(n in x){

       if(n%%2==1) k<-k+1

      }

等同於  for(n in 1：length(x)){

           if(n%%2==1) k<-k+1

         }

#可以理解為 從x的資料的第一個開始取，一直到它的長度個（最後一個）為止。

#預設引數

 > g<-function(x,y=2,z=T){...}

  函式中給y和z都設定了一個值（稱為預設值），T是true的意思

  呼叫函式  g(12,z=FALSE)  #函式中x的值為12，y為2，z被覆蓋變為FALSE

注意：儘量不要用TRUE和FALSE的縮寫T、