Détails

Écrit par Elie Chancelin

Catégorie parente: Logiciel R

Catégorie : Structure de la programmation R

La valeur de retour d'une fonction peut être n'importe quel objet R. Bien que la valeur de retour soit souvent une liste, elle pourrait même être une autre fonction.
Vous pouvez transmettre une valeur à l'appelant en appelant explicitement return (). Sans cet appel, la valeur de la dernière instruction exécutée sera renvoyée par défaut. Par exemple, considérons l'exemple oddcount () du chapitre 1:

> oddcount
function(x) {
}
k <- 0 # assign 0 to k
for (n in x) {
if (n %% 2 == 1) k <- k+1 # %% is the modulo operator
}
return(k)

> oddcount
function(x) {
}
k <- 0 # assign 0 to k
for (n in x) {
if (n %% 2 == 1) k <- k+1 # %% is the modulo operator
}
return(k)

oddcount <- function(x) {
k<-0
}
pagebreak
for (n in x) {
if(n%%2==1)k<-k+1
}
k

oddcount <- function(x) {
k<-0
}
pagebreak
for (n in x) {
if(n%%2==1)k<-k+1
}
k

D'autre part, considérez ce code:

oddcount <- function(x) {
k<-0
for (n in x) {
if(n%%2==1)k<-k+1
}
}

oddcount <- function(x) {
k<-0
for (n in x) {
if(n%%2==1)k<-k+1
}
}

1 Décider d'appeler explicitement return ()
Le R idiom dominant est d'éviter les appels explicites à return (). L'une des raisons invoquées pour cette approche est que l'appel de cette fonction allonge le temps d'exécution. Cependant, à moins que la fonction ne soit très courte, le temps économisé est négligeable, donc cela pourrait ne pas être la raison la plus convaincante de ne pas utiliser return (). Mais cela n'est généralement pas nécessaire.
Considérons notre deuxième exemple de la section précédente:

oddcount <- function(x) {
k<-0
for (n in x) {
}
if(n%%2==1)k<-k+1
}
k

oddcount <- function(x) {
k<-0
for (n in x) {
}
if(n%%2==1)k<-k+1
}
k

2 Retour d'objets complexes
La valeur de retour pouvant être n'importe quel objet R, vous pouvez renvoyer des objets complexes. Voici un exemple de fonction renvoyée:

>g
function() {
}
t <- function(x) return(x^2)
return(t)
> g()
function(x) return(x^2)
<environment: 0x8aafbc0>

>g
function() {
}
t <- function(x) return(x^2)
return(t)
> g()
function(x) return(x^2)
<environment: 0x8aafbc0>

Détails

Écrit par Elie Chancelin

Catégorie parente: Logiciel R

Catégorie : Structure de la programmation R

R est un langage structuré par blocs dans la famille des descendants ALGOL, comme C, C ++, Python, Perl, etc. Comme vous l'avez vu, les blocs sont délimités par des accolades, bien que les accolades soient facultatives si le bloc ne comporte qu'une seule instruction. Les instructions sont séparées par des caractères newline ou, éventuellement, par des points-virgules.
Ici, nous couvrons les structures de base de R en tant que langage de programmation. Nous allons examiner quelques détails supplémentaires sur les boucles et autres, puis directement dans le sujet des fonctions, qui occuperont la majeure partie du chapitre.
En particulier, les questions de portée variable joueront un rôle majeur. Comme pour beaucoup de langages de script, vous ne déclarez pas de variables dans R. Les programmeurs qui ont un arrière-plan dans, par exemple, le langage C, trouveront des similarités dans R au début, mais verront que R a une structure de portée plus riche.

Détails

Écrit par Elie Chancelin

Catégorie parente: Logiciel R

Catégorie : Structure de la programmation R

Comme indiqué à plusieurs reprises dans ce cours, le but de la fonction R () est de créer des fonctions. Par exemple, considérez ce code:

inc <- function(x) return(x+1)

inc <- function(x) return(x+1)

>z
[,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6
> f <- function(x) x/c(2,8)
> y <- apply(z,1,f)
>y
[,1] [,2] [,3]
[1,] 0.5 1.000 1.50
[2,] 0.5 0.625 0.75

>z
[,1] [,2]
[1,] 1 4
[2,] 2 5
[3,] 3 6
> f <- function(x) x/c(2,8)
> y <- apply(z,1,f)
>y
[,1] [,2] [,3]
[1,] 0.5 1.000 1.50
[2,] 0.5 0.625 0.75

> y <- apply(z,1,function(x) x/c(2,8))
>y
[,1] [,2] [,3]
[1,] 0.5 1.000 1.50
[2,] 0.5 0.625 0.75

> y <- apply(z,1,function(x) x/c(2,8))
>y
[,1] [,2] [,3]
[1,] 0.5 1.000 1.50
[2,] 0.5 0.625 0.75