Code : Tout sélectionner
message <- "Bon je suis un peu perdu, mais si vous avez ce qui ressemble diablement à du code R sous forme de texte, je suggère de simplement l'évaluer avec la fonction"
Code : Tout sélectionner
liste1 <- list(
`#text` = c("Prix des prestations", "Délai d'exécution", "Qualité"),
`@POIDS` = c("50", "45", "5")
)
setNames(
as.numeric(liste1$`@POIDS`),
liste1$`#text`
)
Code : Tout sélectionner
do.call(
paste,
read.table(text = c("Genre espèce yz [Date1]", "Genre2 espèce2 abc [Date2]"))[1:2]
)
Code : Tout sélectionner
morts_par_date <- by(essai1, essai1$Date, nrow)
barplot(morts_par_date)
Code : Tout sélectionner
TS$VAR_TS <- ts(TS$TE, start = TS$AN[1])
Code : Tout sélectionner
library(tidyr)
pivot_wider(
data = prix_carburants_instant,
id_cols = x.id,
names_from = nom,
values_from = valeur,
values_fn = mean
)