knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) data(field)
Bl_Avg <- pullSweeps(field$ABF, obs = "PreC-Bl") %>% avgSweeps() Decay_Avg <- avgSweeps(field$ABF, obs = "Decay") %>% avgSweeps() Cond_Avg <- avgSweeps(field$ABF, obs = "Cond") %>% avgSweeps() traces = data.frame(Bl_Avg,Decay_Avg,Cond_Avg)
stim <- stimArtifact(Bl_Avg)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.