dumbcode/test_dm.R

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)
}
jomuller/vartors documentation built on May 19, 2019, 7:26 p.m.