How ProdromeGlia™ Affects my OpticareAI Cognitive Risk Score

How does a plasmalogen supplement affect my cognition?

ProdromeGlia™ is a plasmalogen supplement sold by Prodrome Science. Designed by Dr. Dayan Goodenowe based on decades of research, this omega-9 (oleic acid) plasmalogen precursor is formulated to restore and optimize cellular function in critical areas such as brain white matter, myelin, and heart membranes.

I tested it for one week at a “loading” dose of 8 capsules/day. After noting the alarming increase in some of the measures, I stopped taking it for 3 weeks as a washout period. Then I began taking it again at a dose of 2 capsules/day.

library(tidyverse)
library(lubridate)


ProdromeResults <- read_csv("~/Library/CloudStorage/OneDrive-Personal/Ensembio/Opticare/AirdocUSAPlans/ProdromeResults.csv", col_types = cols(
  Date = col_character(),
  Circulatory = col_double(),
  Metabolic = col_double(),
  Cognitive = col_double(),
  Intervention = col_factor()
)) %>%   mutate(Date = dmy(paste0(Date, "-2024"))) %>%  pivot_longer(cols = c(Circulatory, Cognitive, Metabolic),
               names_to = "Measure",
               values_to = "Value") %>%
  mutate(Measure = factor(Measure, levels = c("Circulatory", "Cognitive", "Metabolic")))

Results

# Identify the ranges where Intervention is "ProdromeGLIA"
shaded_areas <- ProdromeResults %>%
  filter(Intervention == "ProdromeGLIA")  %>%
  mutate(ShadingDate = Date - 1)


# Create the plot
ProdromeResults %>% filter(Measure=="Cognitive" & Date > "2024-07-01") %>% 
  
  ggplot(aes(x = Date, y = Value, color = Measure, group = Measure)) +
    geom_rect(data = shaded_areas, aes(xmin = ShadingDate - 0.5, xmax = ShadingDate + 0.5, ymin = -Inf, ymax = Inf),
            fill = "lightblue", alpha = 0.3, inherit.aes = FALSE) +
  geom_line(size = 1) +
  geom_point(size = 2) +
  theme_minimal() +
  labs(title = "Opticare Risk Measures Over Time",
       x = "",
       y = "Value")+
  annotate("text", x = as.Date("2024-07-10"), y = 5, 
           label = "Shaded areas indicate dates when\nProdromeGlia™ consumed", 
           color = "black", hjust = 0, size = 2.5)