diff --git a/r/notes/20230907-export-baleen.R b/r/notes/20230907-export-narwc.R
similarity index 100%
rename from r/notes/20230907-export-baleen.R
rename to r/notes/20230907-export-narwc.R
diff --git a/r/notes/20240924-export-baleen.R b/r/notes/20240924-export-narwc.R
similarity index 100%
rename from r/notes/20240924-export-baleen.R
rename to r/notes/20240924-export-narwc.R
diff --git a/r/notes/20240925-export-narwc.R b/r/notes/20240925-export-narwc.R
new file mode 100644
index 0000000..73993a0
--- /dev/null
+++ b/r/notes/20240925-export-narwc.R
@@ -0,0 +1,31 @@
+source("_targets.R")
+
+tar_load(pacm_themes)
+
+themes <- pacm_themes %>% 
+  filter(
+    theme %in% c("narw")
+  )
+
+deployments <- themes %>% 
+  select(theme, deployments) %>% 
+  unnest(deployments) %>% 
+  # filter(deployment_type == "stationary") %>% 
+  select(-geometry) %>% 
+  ungroup() %>% 
+  select(-theme)
+detections <- themes %>% 
+  select(theme, detections) %>% 
+  unnest(detections) %>%
+  ungroup() %>% 
+  select(id, date, presence) %>% 
+  semi_join(deployments, by = "id")
+
+detections %>% 
+  tabyl(presence)
+
+deployments %>% 
+  write_csv("~/Dropbox/Work/pacm/transfers/20240925 - narw for narwc/deployments.csv", na = "")
+
+detections %>% 
+  write_csv("~/Dropbox/Work/pacm/transfers/20240925 - narw for narwc/detections.csv", na = "")