.test_transform.convert<-function(){
d <- fread("C:/temp/Daten/Holzproduktion.csv")[, c("unit", "status") := list("m3", "official")][]
key<-names(d)[-7]
##
conv<-data.table(d[1:6,1],conv=1.9/((1:6)%%7+1))
##
conv[]
d[]
d[conv,on=names(d)[1]]
##
d.conv <- d[conv, on = names(d)[1]][, c("unit", "status", "value", "conv") := list("t", "converted", value * conv, NULL)][]
f<-funion(d,d.conv)
f[]
return(f)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.