From 85c5fd1ef0d173eb51bfa202c245ea390980b070 Mon Sep 17 00:00:00 2001 From: "Pavel N. Krivitsky" Date: Fri, 23 May 2025 14:08:32 +1000 Subject: [PATCH 1/2] Added Docker-based Super-Linter. --- .github/workflows/linter.yml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 .github/workflows/linter.yml diff --git a/.github/workflows/linter.yml b/.github/workflows/linter.yml new file mode 100644 index 000000000..cb35b0b51 --- /dev/null +++ b/.github/workflows/linter.yml @@ -0,0 +1,15 @@ +name: Linter + +on: push + +jobs: + build: + runs-on: ubuntu-latest + + steps: + - uses: actions/checkout@v2 + + - name: Super-Linter + uses: docker://github/super-linter:latest + env: + GITHUB_TOKEN: ${{ secrets.GITHUB_TOKEN }} From 4e281afae1fafe2fa70178cca303abc66b9ea3ef Mon Sep 17 00:00:00 2001 From: "Pavel N. Krivitsky" Date: Fri, 23 May 2025 14:43:44 +1000 Subject: [PATCH 2/2] Test 3. --- R/ergm.pen.glm.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/ergm.pen.glm.R b/R/ergm.pen.glm.R index 2f13f65e7..87bbb9923 100644 --- a/R/ergm.pen.glm.R +++ b/R/ergm.pen.glm.R @@ -128,8 +128,8 @@ ergm.pen.glm <- function(formula, loglik <- loglik + 0.5 * determinant(Fisher)$modulus[1] if(loglik > loglik.old) break beta <- beta - delta * 2^( - halfs) ##beta-A enderung verkleinern - } - if(iter == maxit | sum(abs(delta)) <= epsilon){break} + } + if(iter == maxit | sum(abs(delta)) <= epsilon){break } } fit <- list(coefficients = beta, alpha = alpha, var = covs,