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で何をしたかにより近いもの作りについてのthinkin'：アクションで

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.') 
} 

を：Rに我々は唯一の基本的な数値としてinteger、numericとcomplexを持っていることを

> 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. 

お知らせデータ型。

最後に、エラー処理があなたの望むものかどうかはわかりませんが、助けてください。

Answer 2

オブジェクト指向プログラミングはRで使用できますが、Rは主に関数型プログラミング言語です。同等の機能は以下の通りです。

add <- function(x, y) { 

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

} 

注：+を使用すると、あなたはすでに何を求めているのですか？