nanxstats

EXTREMEZ and grid range analysis

Setup

library(gsDesign)

Grid range implied by r

nanxstats

• R/gsSurv.R: gsnSurv(), gsSurv(), print.gsSurv()
• R/gsSurvCalendar.R: gsSurvCalendar()
• R/gsSurv-eEvents.R: eEvents1(), eEvents(), print.eEvents()
• R/gsSurv-method.R: LFPWE(), KTZ(), KT()
• R/gsSurv-nSurv.R: nSurv(), print.nSurv()
• R/gsSurv-interim.R: tEventsIA(), nEventsIA()
• R/gsSurv-utils.R: periods(), nameperiod()
• R/gsSurv-xtable.R: xtable.gsSurv()

nanxstats

library(testthat)

# Method A: round to 6 significant digits, then compare with default tiny tolerance
equal_after_signif <- function(x, y) {
  expect_equal(signif(x, digits = 6), signif(y, digits = 6))
}

# Method B: compare with relative/absolute tolerance = 1e-6
equal_with_tolerance <- function(x, y) {
  expect_equal(x, y, tolerance = 1e-6)

nanxstats

Update toolchain

• rustup self update
• rustup update stable
• cargo update
• cargo fetch

Code style

• cargo fmt

nanxstats

Prepare

• npm install
• Make changes to source code
• Run formatter and sort imports
• Run tests (development workflow section in AGENTS.md)
• Run manual tests (manual testing section in AGENTS.md)

Manifest

nanxstats

Update environment

• uv self update
• uv python pin 3.y.z - latest release version
• uv lock --upgrade
• uv sync

Code style

• python scripts/verify_ascii.py

nanxstats

# <https://fdp.io/blog/2024-10-08-choosing-a-font/>

uv init fontsub
uv add fonttools
uv add brotli

pyftsubset "Iosevka-Extended.woff2" \
    --output-file="Iosevka-Extended-subset.woff2" \
    --flavor="woff2" \
    --layout-features="*" \

nanxstats

library(doFuture)

plan(multisession, workers = 32)

options(scipen = 999)

anysvd <- function(id, dim = 10, nrep = 300) {
  results <- vector("list", nrep)

  for (j in 1:nrep) {

nanxstats

# Remove ProjectID from .Rproj files if freshly added
local({
  xfun <- requireNamespace("xfun", quietly = TRUE)
  rproj_files <- list.files(pattern = "\\.Rproj$", full.names = TRUE)
  if (!xfun || length(rproj_files) == 0L) return(invisible(NULL))

  lapply(rproj_files, function(f) {
    diff_cmd <- system(paste("git diff --", shQuote(f)), intern = TRUE)
    diff_out <- tryCatch(diff_cmd, error = function(e) character(0))

nanxstats

desc <- tempfile()
curl::curl_download("https://cran.r-project.org/web/packages/tidyverse/DESCRIPTION", destfile = desc)
deps <- desc::desc_get_deps(desc)
pkgs <- deps[deps$type %in% c("Imports"), "package"]
urls <- paste0("https://cloud.r-project.org/web/packages/", pkgs, "/news/news.html")
html <- vector("list", length(urls))
for (i in seq_along(urls)) html[[i]] <- rawToChar(curl::curl_fetch_memory(urls[i])$content)
markdown <- vector("list", length(urls))
for (i in seq_along(urls)) markdown[[i]] <- paste0(pandoc::pandoc_convert(text = html[[i]], from = "html", to = "markdown"), collapse = "\n")
markdown <- markdown[-which(sapply(markdown, grepl, pattern = "# Not Found"))]