如何在R中創建類似的Python函數？

Question

我是R的新手，想要學習如何製作一個簡單的功能。 任何人都可以告訴我如何在R中複製這個相同的python加法函數嗎？

def add(self,x,y): 
    number_types = (int, long, float, complex) 
    if isinstance(x, number_types) and isinstance(y, number_types): 
     return x+y 
    else: 
     raise ValueError 

Answer 1

一直以爲有關使更多的東西靠近你在Python做了什麼：

add <- function(x,y){ 
    number_types <- c('integer', 'numeric', 'complex') 
    if(class(x) %in% number_types && class(y) %in% number_types){ 
    z <- x+y 
    z 
    } else stop('Either "x" or "y" is not a numeric value.') 
} 

在行動：

> add(3,7) 
[1] 10 
> add(5,10+5i) 
[1] 15+5i 
> add(3L,4) 
[1] 7 
> add('a',10) 
Error in add("a", 10) : Either "x" or "y" is not a numeric value. 
> add(10,'a') 
Error in add(10, "a") : Either "x" or "y" is not a numeric value. 

注意在R裏面我們只有integer，numeric和complex爲基本數字數據類型。

最後，我不知道錯誤處理是否是你想要的，但希望它有幫助。

Answer 2

您可以在R中使用面向對象編程，但R主要是一種函數式編程語言。等效函數如下。

add <- function(x, y) { 

    stopifnot(is.numeric(x) | is.complex(x)) 
    stopifnot(is.numeric(y) | is.complex(y)) 
    x+y 

} 

注意：使用+已經做了你所要求的。