1000 x data points from the Henon Map
Examples
henon_embedded <- embed(as.matrix(henon_x), 3)
targets <- henon_embedded[ ,1]
predictors <- henon_embedded[ ,2:3]
gamma_test(predictors, targets)
#> $Gamma
#> [1] 0.0002023723
#>
#> $vratio
#> [1] 0.0001984668
#>