USMortality

#!/usr/bin/env Rscript
# ═══════════════════════════════════════════════════════════════
# World Equity (Blended US + ex-US / VT) — Log-Trend & Super-Cycle
# Charts: 1_ Price+Trend, 2_ Deviation+Supertrend, 3_ Normalized
# Data: ERN SWR Toolbox (1871–2025) + Yahoo Finance (recent)
# Blend uses time-varying US market-cap weights (approx.)
# ═══════════════════════════════════════════════════════════════

library(tidyverse)
library(quantmod)

USMortality

#!/usr/bin/env Rscript
# ═══════════════════════════════════════════════════════════════
# Ex-US Equity (World ex-US / VXUS) — Log-Trend & Super-Cycle
# Charts: 1_ Price+Trend, 2_ Deviation+Supertrend, 3_ Normalized
# Data: ERN SWR Toolbox (1871–2025) + Yahoo Finance (recent)
# ═══════════════════════════════════════════════════════════════

library(tidyverse)
library(quantmod)
library(ggrepel)

USMortality

#!/usr/bin/env Rscript
# ═══════════════════════════════════════════════════════════════
# US Equity (S&P 500 TR / VTI) — Log-Trend & Super-Cycle Analysis
# Charts: 1_ Price+Trend, 2_ Deviation+Supertrend, 3_ Normalized
# Data: ERN SWR Toolbox (1871–2025) + Yahoo Finance (recent)
# ═══════════════════════════════════════════════════════════════

library(tidyverse)
library(quantmod)
library(ggrepel)

USMortality

# Virus Hypotheses Tree - English & German versions
# Generates: virus_tree_en.png, virus_tree_de.png

generate_tree <- function(lang = "en") {

  # Language-specific labels
  labels <- if (lang == "en") {
    list(
      title = "Virus Hypotheses",
      yes = "Yes", no = "No",

USMortality

library(tidyverse)
library(tsibble)
library(lubridate)
library(scales)
library(fable)
library(fabletools)

# Set up high-res plotting
width <- 600 * 2
height <- 335 * 2

USMortality

library(tidyverse)
library(ggpubr)
library(tsibble)
library(fable)
library(ggpmisc)
library(ggrepel)
library(scales)

sf <- 2
width <- 1200 * sf

USMortality

library(data.table)
library(ggplot2)

sf <- 2
width <- 900 * sf
height <- 450 * sf
options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

# Load data
s <- fread(

USMortality

library(data.table)
library(ggplot2)

sf <- 2
width <- 600 * sf
height <- 335 * sf
options(vsc.dev.args = list(width = width, height = height, res = 72 * sf))

# All potential vaccine related ICD10 codes
elevated_icd10 <- c(

USMortality

library(readr)
library(tidyr)
library(ggplot2)
library(dplyr)
library(fable)
library(tsibble)

sf <- 2
width <- 900 * sf
height <- 450 * sf

USMortality

#!/usr/bin/env bash

# Require IP argument or environment variable
IP="${1:-${IP}}"

if [ -z "$IP" ]; then
  echo "❌ Error: IP is required."
  echo "Usage: IP=1.2.3.4 ./deploy.sh"
  echo "   or: ./deploy.sh 1.2.3.4"
  exit 1