ethnobotanyR (version 0.2.0)

CVe: Cultural Value of ethnospecies (CVe)

Description

Calculates the Cultural Value (CVe) per ethnospecies.

Usage

CVe(data)

Value

Data frame of ethnospecies and Cultural Value (CVe) values.

References

Reyes-Garcia, V., T. Huanca, V. Vadez, and W. Leonard. 2006. “Cultural, Practical, and Economic Value of Wild Plants: A Quantitative Study in the Bolivian Amazon.” Economic Botany.

Examples

#Use built-in ethnobotany data example
CVe(ethnobotanydata)

#Generate random dataset of three informants uses for four species

eb_data <- data.frame(replicate(10,sample(0:1,20,rep=TRUE)))
names(eb_data) <- gsub(x = names(eb_data), pattern = "X", replacement = "Use_")
eb_data$informant <- sample(c('User_1', 'User_2', 'User_3'), 20, replace=TRUE)
eb_data$sp_name <- sample(c('sp_1', 'sp_2', 'sp_3', 'sp_4'), 20, replace=TRUE)

CVe(eb_data)