data(PFF)
PFF[,4:21] <- log(PFF[,4:21])
PFF <- na.omit(PFF)
traits_dimension <- list(
grow = c("SLA","SRL","Leaf_Nmass","Root_Nmass"),
survive = c("Height","Leaf_CN","Root_CN"),
reproductive = c("SeedMass","FltDate","FltDur")
)
npt_result <- NPT_continuous(data = PFF, dimension = traits_dimension)
NPT_continuous_plot(npt_result$result)
NPT_continuous_plot(npt_result$result, PFF$family)
Run the code above in your browser using DataLab