{
  "#!": {
    "prefix": "#!",
    "description": "#!/usr/bin/env Rscript",
    "body": [
      "#!/usr/bin/env Rscript",
      "$0"
    ],
    "luasnip": {
      "priority": -20
    }
  },
  "df": {
    "prefix": "df",
    "description": "Data frame",
    "body": "${1:name}[${2:rows}, ${0:cols}]"
  },
  "fis": {
    "prefix": "fis",
    "description": "Fisher test",
    "body": "fisher.test(${1:x}, ${0:y})"
  },
  "chi": {
    "prefix": "chi",
    "description": "Chi Squared test",
    "body": "chisq.test(${1:x}, ${0:y})"
  },
  "tt": {
    "prefix": "tt",
    "description": "t-test",
    "body": "t.test(${1:x}, ${0:y})"
  },
  "wil": {
    "prefix": "wil",
    "description": "Wilcox test",
    "body": "wilcox.test(${1:x}, ${0:y})"
  },
  "cor": {
    "prefix": "cor",
    "description": "Correlation test",
    "body": "cor.test(${1:x}, ${0:y})"
  },
  "fte": {
    "prefix": "fte",
    "description": "FTE test",
    "body": "var.test(${1:x}, ${0:y})"
  },
  "kvt": {
    "prefix": "kvt",
    "description": "KV test",
    "body": "kv.test(${1:x}, ${0:y})"
  },
  "vec": {
    "prefix": "vec",
    "body": "${1:var} <- c(\"${0:\\${VISUAL:/ /\",\"/g\\}}\")"
  }
}