Solutions des exercices
619
– [1] "peteR"
[1] "Ben"
[1] "R"
– [1] "peteR"
[1] "Ben"
[1] "R"
Pour l’ex´ ecution de noms(c("peteR","L"),c("Ben","L"),c("R","D"))
– [1] "peteR" "L"
"Ben"
"L"
"R"
"D"
– [[1]]
[1] "peteR" "L"
[[2]]
[1] "Ben" "L"
[[3]]
[1] "R" "D"
– [1] "peteR"
[1] "L"
[1] "Ben"
[1] "L"
[1] "R"
[1] "D"
– [1] "peteR" "L"
[1] "Ben" "L"
[1] "R" "D"
6.8- Pour la fonction noms <- function(noms=c("Ben","R"),...) c(noms,...)
– [1] "PeteR"
– [1] "PeteR"
– [1] "PeteR"
Pour la fonction noms<-function(...,noms=c("Ben","R")) c(noms,...)
– [1] "Ben" "R" "PeteR"
–
nom
"Ben"
"R" "PeteR"
– [1] "PeteR"
6.9- – Homme <- function(pr´ enom,nom) {
obj <- list(pr´ enom=pr´ enom,nom=nom)
class(obj) <- "Homme"
obj
}
– bonjour.Homme <- function(obj)
cat("Bonjour Monsieur",obj$pr´ enom,obj$nom,"!\n")
– Bonjour Monsieur Ben L !
– Erreur : impossible de trouver la fonction "bonjour"
– bonjour <- function(obj) UseMethod("bonjour")
619
– [1] "peteR"
[1] "Ben"
[1] "R"
– [1] "peteR"
[1] "Ben"
[1] "R"
Pour l’ex´ ecution de noms(c("peteR","L"),c("Ben","L"),c("R","D"))
– [1] "peteR" "L"
"Ben"
"L"
"R"
"D"
– [[1]]
[1] "peteR" "L"
[[2]]
[1] "Ben" "L"
[[3]]
[1] "R" "D"
– [1] "peteR"
[1] "L"
[1] "Ben"
[1] "L"
[1] "R"
[1] "D"
– [1] "peteR" "L"
[1] "Ben" "L"
[1] "R" "D"
6.8- Pour la fonction noms <- function(noms=c("Ben","R"),...) c(noms,...)
– [1] "PeteR"
– [1] "PeteR"
– [1] "PeteR"
Pour la fonction noms<-function(...,noms=c("Ben","R")) c(noms,...)
– [1] "Ben" "R" "PeteR"
–
nom
"Ben"
"R" "PeteR"
– [1] "PeteR"
6.9- – Homme <- function(pr´ enom,nom) {
obj <- list(pr´ enom=pr´ enom,nom=nom)
class(obj) <- "Homme"
obj
}
– bonjour.Homme <- function(obj)
cat("Bonjour Monsieur",obj$pr´ enom,obj$nom,"!\n")
– Bonjour Monsieur Ben L !
– Erreur : impossible de trouver la fonction "bonjour"
– bonjour <- function(obj) UseMethod("bonjour")
