ansiastat <- data.frame(gruppo=c("tr1","tr1","tr1","tr2","tr2","tr2","ctr","ctr","ctr"),
pre=c(85,80,92,86,82,95,90,87,78),
post=c(100,98,105,92,99,108,95,80,82))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.