data(marks)
## The correlation between vec and alg given ana and sta
pcor(c("vec", "alg", "ana", "sta"), var(marks))
## The same
pcor(c(2,3,4,5), var(marks))
## The correlation between vec and alg given sta
pcor(c("vec", "alg", "sta"), var(marks))
## The marginal correlation between ana and sta
pcor(c("ana","sta"), var(marks))Run the code above in your browser using DataLab