data(ND)
logND <- log(ND)
logND1 <- logND[51:90,]
obj <- clikcorr(logND1, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678")
plot(obj, type="o")
## Not run:
# obj <- clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678")
# plot(obj, type="o", col="blue", lwd=1)
# ## End(Not run)
Run the code above in your browser using DataLab