# load record table
data(recordTableSample)
# generate activity histogram
species4activity <- "VTA" # = Viverra tangalunga, Malay Civet
activityHistogram (recordTable = recordTableSample,
species = species4activity,
allSpecies = FALSE)
Run the code above in your browser using DataLab