inst/make_roi_center.R

In shaliulab/idocr: Analyze traces created in the Individual Drosophila Optogenetics Conditioner (IDOC)

roi_center_001 <- data.frame(
    region_id = 1:20,
    center = c(
        415.4583333333333,
        416.0416666666667,
        414.4583333333333,
        415.6666666666667,
        415.2083333333333,
        415.9166666666667,
        415.3333333333333,
        416.1666666666667,
        419.9166666666667,
        418.4583333333333,
        822.7083333333334,
        824.5,
        823.875,
        824.6666666666666,
        824.9166666666666,
        823.75,
        824.0416666666666,
        821.0416666666666,
        824.5833333333334,
        819.625
    )
)

roi_center_002 <- data.frame(
    region_id = 1:20,
    center = c(
        420.33333, 422.1666,
        420, 424.5,
        428.6666, 431.5,
        430.333, 434.1666,
        440, 439.333,
        1476.5, 1476.8333,
        1481.333, 1484.333,
        1485.3333, 1490.16666,
        1493.666, 1494,
        1501.5, 1505.66
    )
)

write.csv(
  x = roi_center_001,
  file = file.path("roi_centers", "IDOC_001", "ROI_CENTER.csv")
)
write.csv(
  x = roi_center_002,
  file = file.path("roi_centers", "IDOC_002", "ROI_CENTER.csv")
)