get.cocor.input(result.object)
"get.cocor.input"(result.object)
data("aptitude")
cocor.result <- cocor(~knowledge + intelligence.a | logic + intelligence.a,
aptitude$sample1)
get.cocor.input(cocor.result)
Run the code above in your browser using DataLab