R1<-residuals(mgcv::gam(X3~X2,data=sim_normal.no.nesting,family=gaussian),
type="response")
R2<-residuals(mgcv::gam(X1~X2,data=sim_normal.no.nesting,family=gaussian),
type="response")
#perm.generalized.covariance function
perm.generalized.covariance(R1,R2,nperm=5000)
Run the code above in your browser using DataLab