R: 自定義函數

###################################################

問題：自定義函數   18.4.29

         自定義函數，其返回值是個問題，還有怎麼讓過程變量成爲全局變量，是個問題？？？？。。。。。。。。。。。。。

解決方案：

         NA.detec <- function(x){

           D = sum(is.na(x),na.rm = TRUE)}

         ZERO.detec <- function(x){

           # D = colSums(x == 0,na.rm = TRUE)  #in colSums(x == 0, na.rm = TRUE) :'x' must be an array of at least two dimensions

           D = sum(x == 0,na.rm = TRUE)}

 

         NA.ZERO.detec <- function(x,choice = "NA"){

           if (choice=="NA"){

                   D = sum(is.na(x),na.rm = TRUE)

                   print(D)

           }else if(choice=="ZERO"){

                   D = sum(x == 0,na.rm = TRUE)

                   print(D)

           }else{print("have no this method.")}

         } 

         do.call("NA.ZERO.detec",args = list(liang$leave_time,"ZERO"))  #調用函數名，後面爲參數。

         #函數內部找不到某個變量時，直接在外部尋找 使用。因此不能重名。。

         #函數的最後一行的結果就是返回信息。

討論擴展：

        

另請參閱：