defectos = read.table("data-raw/defectos.txt",header=T)
defectos$coche <- factor(defectos$coche)
save(defectos,file="data/defectos.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.