## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----load---------------------------------------------------------------------
rep <- readRDS(system.file("extdata", "replication.rds", package = "fgls"))
xl <- readRDS(system.file("extdata", "cross_language.rds", package = "fgls"))
rep$replications

## ----t1-----------------------------------------------------------------------
knitr::kable(rep$pg26_table1, digits = 3)
rep$pg26_table1_median_k

## ----t25----------------------------------------------------------------------
knitr::kable(rep$pg26_general, digits = 3)

## ----gp24---------------------------------------------------------------------
knitr::kable(rep$gp24_table1, digits = 3)

## ----s9-----------------------------------------------------------------------
knitr::kable(rep$s9, digits = 3)

## ----xl-----------------------------------------------------------------------
s <- xl$summary
s <- s[s$quantity %in% c("beta", "se", "kstar", "selected", "coverage_95"), ]
knitr::kable(s, digits = 15, row.names = FALSE)

## ----xl-dev-------------------------------------------------------------------
xl$pyfgls_pr2$version
knitr::kable(xl$pyfgls_pr2$summary, digits = 15, row.names = FALSE)