tests/testthat/_snaps/allelematch_2-amMatrix_negative.md

Validation of arguments to amMatrix() is working

Code
  print(miniExample)
Output
    LOC1a LOC1b LOC2a LOC2b
  1    11    21    31    41
  2    12    22    32    42
  3    13    23    33    43
  4    14    24   -99    44
Code
  amdataMini <- amDataset(miniExample)
Code
  print.amDataset(amdataMini)
Output
  allelematch
  amDataset object
      LOC1a LOC1b LOC2a LOC2b
  AAA    11    21    31    41
  AAB    12    22    32    42
  AAC    13    23    33    43
  AAD    14    24   -99    44
{
  "type": "list",
  "attributes": {
    "names": {
      "type": "character",
      "attributes": {},
      "value": ["index", "multilocus", "missingCode"]
    },
    "class": {
      "type": "character",
      "attributes": {},
      "value": ["amDataset"]
    }
  },
  "value": [
    {
      "type": "character",
      "attributes": {},
      "value": ["AAA", "AAB", "AAC", "AAD"]
    },
    {
      "type": "character",
      "attributes": {
        "dim": {
          "type": "integer",
          "attributes": {},
          "value": [4, 4]
        },
        "dimnames": {
          "type": "list",
          "attributes": {},
          "value": [
            {
              "type": "NULL"
            },
            {
              "type": "character",
              "attributes": {},
              "value": ["LOC1a", "LOC1b", "LOC2a", "LOC2b"]
            }
          ]
        }
      },
      "value": ["11", "12", "13", "14", "21", "22", "23", "24", "31", "32", "33", "-99", "41", "42", "43", "44"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["-99"]
    }
  ]
}
Code
  mx0 <- amMatrix(amdataMini, 1)
{
  "type": "double",
  "attributes": {
    "dim": {
      "type": "integer",
      "attributes": {},
      "value": [4, 4]
    },
    "dimnames": {
      "type": "list",
      "attributes": {},
      "value": [
        {
          "type": "character",
          "attributes": {},
          "value": ["AAA", "AAB", "AAC", "AAD"]
        },
        {
          "type": "character",
          "attributes": {},
          "value": ["AAA", "AAB", "AAC", "AAD"]
        }
      ]
    },
    "class": {
      "type": "character",
      "attributes": {},
      "value": ["amMatrix"]
    }
  },
  "value": [0, 1, 1, 0.9375, 1, 0, 1, 0.9375, 1, 1, 0, 0.9375, 0.9375, 0.9375, 0.9375, 0.125]
}


Try the amregtest package in your browser

Any scripts or data that you put into this service are public.

amregtest documentation built on May 29, 2024, 4:04 a.m.