Vettore di corrispondenza dei valori predefiniti utilizzando match.arg() con o senza errore [R]

Question

Desidero scrivere una funzione che applica uno dei due metodi statistici diversi al suo input. Durante il processo, ho notato alcuni comportamenti di funzioni diverse che non capisco. La funzione voglio scrivere dovrebbe avere le seguenti caratteristiche:

• dovrebbe avere un vettore come valore di default (così l'utente può vedere quali sono i metodi disponibili)
• se l'argomento viene lasciato a default valore, allora il primo dei due metodi deve essere usato
• se l'utente manualmente fornisce un vettore di metodi, allora la funzione dovrebbe dare un errore

sostanza, voglio la funzione di B come nel caso di cor in R. Lì, si ha un valore predefinito method = c("pearson", "kendall", "spearman") e le funzioni hanno calcolato la correlazione di Pearson se method non è specificato. Se l'utente richiede più metodi contemporaneamente, la funzione restituisce un errore.

Dall'esame di cor, sembra essere fatto utilizzando match.arg(method). Questo comportamento è illustrato qui:

x <- y <- 1:5 

cor(x, y, method="pearson") 
# = 1 
cor(x, y, method="kendall") 
# = 1 
cor(x, y, method=c("pearson","kendall")) 
# gives an error 

Ho provato a scrivere la mia propria funzione, utilizzando anche match.arg(method), ma mi sono reso conto che il risultato è in qualche modo diverso. Anche quando si sceglie un vettore per method, la funzione non termina con un errore, ma restituisce i risultati del primo metodo.

Questo è illustrato qui:

myfun <- function(x, method=c("add","multiply")){ 
    method <- match.arg(method) 
    if(method=="add") return(sum(x)) 
    if(method=="multiply") return(prod(x)) 
} 

x <- 1:5 

myfun(x, method="add") 
# = 15 
myfun(x, method="multiply") 
# = 120 
myfun(x, method=c("add","multiply")) 
# = 15 

Non capisco questo comportamento, e sarei lieto se potesse dare una mano qui. Dai miei tentativi su Google, mi rendo conto che potrebbe essere correlato a una valutazione non standard, ma non posso ancora mettere insieme due e due.

Grazie in anticipo, il vostro aiuto è molto apprezzato!

Cheers!

EDIT:

potevo anche ri-frase la mia domanda:

Che magia potente fa cor fanno che restituisce la correlazione di Pearson, quando method non viene fornito, ma che restituisce un errore quando method = c("pearson", "kendall", "spearman") è specificato esplicitamente?

Answer 1

Se choices e args sono uguali in match.arg, viene restituito il primo elemento. Altrimenti arg deve essere di lunghezza 1. Da match.arg:

Dal argomento di default corrispondente imposterà arg alle scelte, ciò è consentito come eccezione alla 'lunghezza a meno several.ok è TRUE' regola, e restituisce il primo elemento.

match.arg(c("pearson", "kendall", "spearman"), c("pearson", "kendall", "spearman")) 
## [1] "pearson" 
match.arg(c("pearson", "kendall"), c("pearson", "kendall", "spearman")) 
## Error in match.arg(c("pearson", "kendall"), c("pearson", "kendall", "spearman")) : 
## 'arg' must be of length 1 

È possibile ottenere il comportamento desiderato utilizzando un argomento fittizio:

myfun <- function(x, method=c("add","multiply","other.return.error")){ 
    method <- match.arg(method) 
    if("other.return.error" %in% method) stop("this option should not be used") 
    if(method=="add") return(sum(x)) 
    if(method=="multiply") return(prod(x)) 
} 

Answer 2

La questione principale è stato risposto con @shadow (vedi sopra).

Un altro modo di ottenere il comportamento desiderato per myfun è quello di eseguire un controllo se method viene fornito o meno e la stampa un errore se fosse esplicitamente fornito con più di un elemento.

myfun <- function(x, method=c("add","multiply")){ 
    if(!missing(method) & length(method)>1) stop("Only one 'method' allowed.") 
    method <- match.arg(method) 
    if(method=="add") return(sum(x)) 
    if(method=="multiply") return(prod(x)) 
} 

x <- 1:5 

myfun(x) 
# = 15 
myfun(x, method="add") 
# = 15 
myfun(x, method="multiply") 
# = 120 
myfun(x, method=c("add","multiply")) 
# gives error 

Questo elude l'eccezione match.arg indicate da @shadow da cui fornire un vettore per la funzione può non causa un errore. Invece, questo errore viene dato subito.