How to conduct goodness-of-fit of SJC copula in R?

[ericzxhuang]

I know there is  a gofCopula function in the copula package which could calculate the goodness-of-fit for many copulas. But I want to get the goodness-of-fit for SJC copula.
Who could help me to do this? Thanks very much!