# NOT RUN {
if(interactive()){
# create a visit-based data object from the original observation-based data
OB <- organizeBirds(bombusObs)
visitStats <- exploreVisits(OB)
# esquisse::esquisser(visitStats)
# alternatively, plot the variable you want, e.g.:
# to see the distribution of distances covered on each visit
hist(visitStats$effortDiam)
# to see the distribution of species list lengths of each visit
hist(visitStats$SLL)
# to identify suspicious visits reported the first day of each month or year
hist(visitStats$day)
# to see correlations
plot(visitStats$nObs, visitStats$effortDiam)
plot(visitStats$SLL, visitStats$effortDiam)
# to see the ditributions of observations along the days of the month
plot(visitStats$day, visitStats$nObs)
}
# }
Run the code above in your browser using DataLab