File: test-gamma.R

package info (click to toggle)
r-cran-rpf 1.0.14%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,484 kB
  • sloc: cpp: 5,364; sh: 114; ansic: 41; makefile: 2
file content (8 lines) | stat: -rw-r--r-- 246 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
library(testthat)
library(rpf)

context("ordinal.gamma")

# Example data from Agresti (1990, p. 21)
jobsat <- matrix(c(20,22,13,7,24,38,28,18,80,104,81,54,82,125,113,92), nrow=4, ncol=4)
expect_equal(ordinal.gamma(jobsat), .1265, tolerance=.001)