# Using the forceR::df.all.200.tax dataset:
# calculate mean curves per species
peaks.df.100.avg <- avg_peaks(df = forceR::peaks.df.norm.100,
path.data = NULL)
# \donttest{
# plot averaged normalized curves per species
require(ggplot2)
ggplot(peaks.df.100.avg,
aes(x = index ,
y = force.norm.100.avg,
colour=species)) +
geom_line()
# }
Run the code above in your browser using DataLab