> levels(monfichier$content)
[1] "non" "oui" 
> monfichier$content) <- ordered(monfichier$content, c("oui","non")) 
> levels(monfichier$content)
[1] "oui" "non"