In ajaygpb/AMMIStbp: Additive Main Effects and Multiplicative Interaction Model Stability Parameters

glue::glue('<script type="application/ld+json">
      {glue::glue_collapse(readLines("inst/schemaorg.json"), sep = "\n")}
    </script>')

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "",
  fig.path = "inst/extdata/"
)

ammistability: Additive Main Effects and Multiplicative Interaction Model Stability Parameters

devtools::load_all(".")

Version : r getNamespaceVersion("ammistability"); Copyright (C) 2017-r format(Sys.Date(), "%Y"): ICAR-DGR; License: GPL-2|GPL-3

Ajay, B. C.^1^, Aravind, J.^2^ and Abdul Fiyaz, R^3^

1. RRS, ICAR-Directorate of Groundnut Research, Anantapur.
2. ICAR-National Bureau of Plant Genetic Resources, New Delhi.
3. ICAR-Indian Institute of Rice Research, Hyderabad.

---

dver <- ifelse(test = gsub("(.\\.)(\\d+)(\\..)", "", getNamespaceVersion("ammistability")) != "",
               yes = getNamespaceVersion("ammistability"),
               no = gsub("Version:\\s*", "", readLines(paste0("https://raw.githubusercontent.com/", "ajaygpb/ammistability", "/master/DESCRIPTION"))[grep("Version:", readLines(paste0("https://raw.githubusercontent.com/", "ajaygpb/ammistability", "/master/DESCRIPTION")))]))

cat(paste("[![develVersion](https://img.shields.io/badge/devel%20version-", dver, "-orange.svg)](https://github.com/ajaygpb/ammistability)", sep = ""))

---

Description

r gsub("\\n", " ", packageDescription("ammistability", fields = "Description"))

Installation

The package can be installed from CRAN as follows:

# Install from CRAN
install.packages('ammistability', dependencies=TRUE)

The development version can be installed from github as follows:

# Install development version from Github
devtools::install_github("ajaygpb/ammistability")

Detailed tutorial

For a detailed tutorial (vignette) on how to used this package type:

browseVignettes(package = 'ammistability')

The vignette for the latest version is also available online.

What's new

To know whats new in this version type:

news(package='ammistability')

Links

CRAN page

Github page

Documentation website

Zenodo DOI

CRAN checks

pkgname <- "ammistability"

osdf <-
  rbind(data.frame(OS = "Linux", 
                   Flavour = c("r-devel-linux-x86_64-debian-clang",
                               "r-devel-linux-x86_64-debian-gcc", 
                               "r-devel-linux-x86_64-fedora-clang",
                               "r-devel-linux-x86_64-fedora-gcc", 
                               "r-patched-linux-x86_64",
                               "r-release-linux-x86_64")),
        # data.frame(OS = "Solaris", 
        #            Flavour = c("r-patched-solaris-x86")),
        data.frame(OS = "Windows", 
                   Flavour = c("r-devel-windows-x86_64", 
                               "r-release-windows-x86_64",
                               "r-oldrel-windows-x86_64")),
        data.frame(OS = "macOS", 
                   Flavour = c("r-release-macos-x86_64", 
                               # "r-release-macos-arm64",
                               # "r-oldrel-macos-arm64",
                               "r-oldrel-macos-x86_64")))

chkurl <- paste("https://cran.r-project.org/web/checks/check_results_",
                pkgname, ".html", sep = "")
library(RCurl)

if (url.exists(chkurl)) {
  chklink <- paste("(", chkurl,  ")", sep = "")
} else {
  chklink <- "(https://cran.r-project.org/web/checks/check_results_j.aravind_at_icar.gov.in.html)"
}

osdf$`CRAN check` <- paste("[![CRAN check - ", osdf$Flavour, "]",
                           "(https://badges.cranchecks.info/flavor/",
                           osdf$Flavour, "/", pkgname, ".svg)]",
                           chklink,
                           sep = "")

cat("[![Linux](https://img.shields.io/badge/Linux-FCC624?style=for-the-badge&logo=linux&logoColor=black)](https://cran.r-project.org/web/checks/check_results_ammistability.html)", "\n")

knitr::kable(osdf[osdf$OS == "Linux", c(2, 3)], format = "simple", 
             col.names = c("", ""), 
             row.names = FALSE)

cat("[![Windows](https://img.shields.io/badge/Windows-0078D6?style=for-the-badge&logo=windows&logoColor=white)](https://cran.r-project.org/web/checks/check_results_ammistability.html)", "\n")

knitr::kable(osdf[osdf$OS == "Windows", c(2, 3)], format = "simple", 
             col.names = c("", ""),
             row.names = FALSE)

cat("[![MacOS](https://img.shields.io/badge/mac%20os-000000?style=for-the-badge&logo=apple&logoColor=white)](https://cran.r-project.org/web/checks/check_results_ammistability.html)", "\n")

knitr::kable(osdf[osdf$OS == "macOS", c(2, 3)], format = "simple", 
             col.names = c("", ""),
             row.names = FALSE)

cat("\n")

library(kableExtra, warn.conflicts = FALSE)

kosdf <- kbl(osdf[, c("Flavour", "CRAN check")], row.names = FALSE, 
             format = "simple")

kosdf2 <- kable_styling(kosdf, bootstrap_options = c("striped", "hover"),
              full_width = F, position = "left")

# os_index <- c(6, 1, 3, 2)
os_index <- c(6, 3, 2)

names(os_index) <- c(paste("[![Linux](https://shields.io/badge/Linux--9cf?logo=Linux&style=social)]",
                           chklink, sep = ""),
                     # paste("[![Solaris](https://shields.io/badge/Solaris--9cf?logo=Oracle&style=social)]",
                     #       chklink, sep = ""),
                     paste("[![Windows](https://shields.io/badge/Windows--9cf?logo=Windows&style=social)]",
                           chklink, sep = ""),
                     paste("[![MacOS](https://shields.io/badge/MacOS--9cf?logo=Apple&style=social)]",
                           chklink, sep = ""))

pack_rows(kosdf2, index = os_index)

Citing ammistability

To cite the methods in the package use:

citation("ammistability")

# detach("package:ammistability", unload=TRUE)
suppressPackageStartupMessages(library(ammistability))
cit <- citation("ammistability")
# yr <- format(Sys.Date(), "%Y")
# cit[1]$year <- yr
# oc <- class(cit)
# 
# cit <- unclass(cit)
# attr(cit[[1]],"textVersion") <- gsub("\\(\\)",
#                                      paste("\\(", yr, "\\)", sep = ""),
#                                      attr(cit[[1]],"textVersion"))
# class(cit) <- oc
cit

ajaygpb/AMMIStbp documentation built on Aug. 21, 2023, 7:59 p.m.