flip sign for + clamp

aforren1 · Apr 8, 2022 · c7931e4 · c7931e4
1 parent 268ce56
commit c7931e4
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/analysis/beta/analyze.R b/analysis/beta/analyze.R
@@ -76,8 +76,6 @@ for (i in 1:lt) {
   targ <- trial[['target']][[j]]
   t_ang <- rad2deg(atan2(targ$y, targ$x))
   diff_ang <- signed_diff_angle(ang, t_ang)
-  # nuke the frame info
-  #trials$frames[[i]] <- NULL
   trials$rt[i] <- rt
   trials$target_angle[i] <- t_ang
   trials$target_dist[i] <- sqrt(targ$x^2 + targ$y^2)

diff --git a/analysis/clean.r b/analysis/clean.r
@@ -48,6 +48,7 @@ for (i in 1:length(ids)) {
 
 dat_cyc <- rbindlist(dat_cyc)
 dat_cyc[, mega_label := paste0('id: ', id, ' group: ', group, ' clamp angle: ', eventual_angle)]
+dat_cyc[, dang := dang * ifelse(eventual_angle > 0, -1, 1)]
 #labels <- dat_cyc[label=='PERTURBATION', .SD[1], by=id]
 
 ggplot(dat_cyc, aes(x=seq, y = dang, colour=label)) +