dataframe généré par une fonction avec colnames

Question

J'essaie de créer une fonction qui génère une trame de données et ajoute les colnames par programme.

x est un vecteur

foo <- function(x){ 
    dfoo <- data.frame(Mts = 1:12) 
    for (i in 1:length(x)){ 
    dfoo[i + 1] <- 1:12*i 
    } 
    colnames(dfoo) <- c("Months", paste(x, "BAR" sep = " ")) 
    return(dfoo) 
} 

mais il est de lancer cette erreur Error: unexpected '}' in "}"

Answer 1

C'est parce que vous manque une virguledans cette ligne dans la fonction paste entre « BAR » et sep :

c("Months", paste(x, "BAR" sep = " ")) 

Il devrait être:

c("Months", paste(x, "BAR",sep = " "))