myC <- setTheta(copClayton, 0.5)
myC
# negative theta is ok for dim = 2 :
myF <- setTheta(copFrank, -2.5, noCheck=TRUE)
myF@tau(myF@theta) # -0.262
myT <- setTheta(tCopula(), 0.7)
stopifnot(all.equal(myT, tCopula(0.7), tol=0))
Run the code above in your browser using DataLab