Print Method for polycor Objects
print method for objects of class polycor, produced by
polychor and polyserial.
## S3 method for class 'polycor'
print(x, digits = max(3, getOption("digits") - 3), ...)x |
an object of class |
digits |
number of significant digits to be printed. |
... |
not used. |
Invisibly returns x; used for its side effect — i.e., printing.
John Fox jfox@mcmaster.ca
if(require(mvtnorm)){
set.seed(12345)
data <- rmvnorm(1000, c(0, 0), matrix(c(1, .5, .5, 1), 2, 2))
x <- data[,1]
y <- data[,2]
cor(x, y) # sample correlation
}
if(require(mvtnorm)){
x <- cut(x, c(-Inf, .75, Inf))
y <- cut(y, c(-Inf, -1, .5, 1.5, Inf))
polychor(x, y, ML=TRUE, std.err=TRUE) # polychoric correlation, ML estimate
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.