R code（摘自张金龙SPAA包）
library(spaa)##加载spaa包##
data(testdata)##载入testdata数据框#
testdatadata(splist)##载入splist数据框##
splistadd.col(inputA = testdata, inputB = splist, add = "genera",according = "species")add.col(inputA = testdata, inputB = splist, add = "family",according = "species")
library(spaa)##加载spaa包##
data(testdata)##载入testdata数据框#
testdatadata(splist)##载入splist数据框##
splistadd.col(inputA = testdata, inputB = splist, add = "genera",according = "species")add.col(inputA = testdata, inputB = splist, add = "family",according = "species")
