data(ND)
logND <- log(ND)
logND1 <- logND[51:90,]
obj <- clikcorr(logND1, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678")
## Not run:
# clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678")
#
# clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678",
# nlm=TRUE)
#
# clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678",
# method="BFGS")
#
# clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678",
# sv=c(5,-0.5,0.6,0.5,0.6))
#
# clikcorr(logND, "t1_OCDD", "t2_OCDD", "t1_HxCDF_234678", "t2_HxCDF_234678",
# dist="t", df=10, nlm=TRUE)
# ## End(Not run)
print(obj)
summary(obj)
Run the code above in your browser using DataLab