安装.包( " 树形数据表 " ) 遥控器 :: 安装github( " ropensci/treedata.table " ) 图书馆( 树形数据表 )
数据( 酒精 ) td(时域) <- as.treedata.table格式( 树 = 酒精 $ 物理(phy) , 数据 = 酒精 $ 日期 )
时分复用器( td(时域) , 盖革 :: fit连续( 物理(phy) ,提取向量( td(时域) , ' SVL公司 ' ), 模型 = " BM公司 " , ncores公司 = 1 ))
日期 <- droptreedata.table(下拉树数据表)( td对象 = td(时域) , 分类群 = c(c)( " 变色龙 " , " 尤格涅格拉哈米 " ))