https://github.com/trangdata/r-project-sprint

https://github.com/trangdata/r-project-sprint

Last synced: about 1 year ago
JSON representation

• Host: GitHub
• URL: https://github.com/trangdata/r-project-sprint
• Owner: trangdata
• Created: 2023-11-06T17:44:36.000Z (over 2 years ago)
• Default Branch: main
• Last Pushed: 2023-11-06T17:48:21.000Z (over 2 years ago)
• Last Synced: 2025-01-13T01:35:07.591Z (about 1 year ago)
• Language: R
• Size: 2.93 KB
• Stars: 0
• Watchers: 1
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd

Awesome Lists containing this project

README

          
---

output: github_document

---

```{r, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  eval = FALSE

)

```

# r-project-sprint

https://contributor.r-project.org/r-project-sprint-2023/projects/tweak-printCoefmat/

https://github.com/r-devel/r-svn/blob/236f2202c3ffb739fbd2b99bdb6c2670c00ce53b/src/library/stats/R/anova.R#L112-L114

`printCoefmat3`:

```{r}

  if (length(cs.ind)) {

    nozap.ind <- setdiff(cs.ind, zap.ind)

    acs <- abs(xm[, cs.ind, drop = FALSE])

    larger_acs <- abs(acs) >= 10^(-digits+1)

    larger_acs[, nozap.ind] <- TRUE

    if (any(ia <- is.finite(acs)) && length(acs <- acs[ia & larger_acs])) {

      digmin <- 1 + floor(log10(range(acs, finite = TRUE)))

    }

  }

```