Unverified Commit 3f1a8232 authored by salonirose95's avatar salonirose95 Committed by GitHub
Browse files

Update single_fly.Rmd

parent ec08a6a6
......@@ -127,8 +127,8 @@ source("DTS_plotfunctions.R")
if(!exists("OIprofile")){OIprofile <- data.frame(matrix(ncol = NofPeriods))}
if(sequence$type[i]=="optomotorR"||sequence$type[i]=="optomotorL")
{
avg = mean(abs(as.numeric(as.character( temp[,3] ))))
maxi = max(as.numeric(as.character(rawdata[,3])))-min(as.numeric(as.character(rawdata[,3])))
avg = mean(abs(as.numeric(as.character( temp$torque ))))
maxi = max(as.numeric(as.character(rawdata$torque)))-min(as.numeric(as.character(rawdata$torque)))
sequence$opto[i] = avg/maxi
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment