# NOT RUN {
# Format data
df.new <- format_data(GCaMP)
# Split data
basevals <- df.new$Trial1[df.new$Time <= 0]
eventvals <- df.new$Trial1[df.new$Time > 0]
# Find baseline (pre-epoc) values
base.mu <- mean(basevals)
base.sigma <- sd(basevals)
# Compute values
z_score(x = eventvals, mu = base.mu, sigma = base.sigma)
# }
Run the code above in your browser using DataLab