test1 <- function(){
rawdata<-data.frame("poids"=rnorm(50,50,10))
# explore the raw data
head(rawdata$poids)
str(rawdata$poids)
cleandata$poids <- as.numeric(rawdata$poids)
# set the label
attr(cleandata$poids, "label") <- Poids
head(cleandata$poids)
str(cleandata$poids)
summary(cleandata$poids)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.