# NOT RUN {
### Format data frame
df.new <- format_data(GCaMP)
### How many peaks are there in trial 1 with 10 decreasing data points on each side?
peak.indices <- find_peaks(df.new$Trial1, n.points = 10)
### When do they occur?
data.frame(times = df.new$Time[peak.indices], vals = df.new$Trial1[peak.indices])
# }
Run the code above in your browser using DataLab