Nothing
### R code from vignette source 'Expanding_TR8.Rnw'
###################################################
### code chunk number 1: aa (eval = FALSE)
###################################################
## res<-new("results")
###################################################
### code chunk number 2: zz (eval = FALSE)
###################################################
## res@results<-NULL
###################################################
### code chunk number 3: bb (eval = FALSE)
###################################################
## res@results<-datatraits
###################################################
### code chunk number 4: cc (eval = FALSE)
###################################################
## res@bibliography<-"Di Sarli, C. and Troilo, A., 2014.
## TRAITS: A new web traitbase for the flora of Argentina.
## http://www.pichuco.edu"
###################################################
### code chunk number 5: dd (eval = FALSE)
###################################################
## return(res)
###################################################
### code chunk number 6: tt (eval = FALSE)
###################################################
## it_flowering<-get_italian_flowering(species_list,
## TRAITS=traits_list$Pignatti,rest=rest)
## my_exp<-funct_tr(species_list,TRAITS=traits_list$New_db,rest=rest)
###################################################
### code chunk number 7: zx (eval = FALSE)
###################################################
## for(i in c(eco_traits,biolflor_traits,
## leda_traits,pignatti_traits,it_flowering,amf_traits)){
## ## merge the dataframes only if they contain data
## ...
## }
###################################################
### code chunk number 8: zy (eval = FALSE)
###################################################
## for(i in c(my_exp,eco_traits,biolflor_traits,
## leda_traits,pignatti_traits,it_flowering,amf_traits)){
## ## merge the dataframes only if they contain data
## ...
## }
###################################################
### code chunk number 9: a (eval = FALSE)
###################################################
## column_list<-list(
## ## already existing traits
## ## ...
## ## ...
## "height"=c("height","height of a species","New_db"),
## "dispersal_type"=c("disp_type","Typology of dispersal","New_db"),
## "clonality"=c("clonality","Type of clonal species","New_db")
## )
###################################################
### code chunk number 10: sa (eval = FALSE)
###################################################
## library(plyr)
## tp<-ldply(column_list)[2:4]
## names(tp)<-c("short_code","description","db")
## save(tp,file="TR8/man/available_tr8.Rd")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.