print.transfer_entropy {RTransferEntropy}

Prints a transfer-entropy result

Description

Prints a transfer-entropy result

Usage

## S3 method for class 'transfer_entropy'
print(
  x,
  digits = 4,
  boot = TRUE,
  probs = c(0, 0.25, 0.5, 0.75, 1),
  tex = FALSE,
  ref = NA,
  file = NA,
  table = TRUE,
  ...
)

Arguments

x

a transfer_entropy

digits

the number of digits to display, defaults to 4

boot

if the bootstrapped results should be printed, defaults to TRUE

probs

numeric vector of quantiles for the bootstraps

tex

if the data should be outputted as a TeX-string

ref

the reference string of the LaTeX table (label) applies only if table = TRUE and tex = TRUE, defaults to FALSE

file

a file where the results are printed to

table

if the table environment should be printed as well (only applies if tex = TRUE), defaults to TRUE

...

additional arguments, currently not in use

Value

invisible the text

Examples

# construct two time-series
set.seed(1234567890)
n <- 500
x <- rep(0, n + 1)
y <- rep(0, n + 1)

for (i in seq(n)) {
  x[i + 1] <- 0.2 * x[i] + rnorm(1, 0, 2)
  y[i + 1] <- x[i] + rnorm(1, 0, 2)
}

x <- x[-1]
y <- y[-1]

# Calculate Shannon's Transfer Entropy
te_result <- transfer_entropy(x, y, nboot = 100)

print(te_result)

# change the number of digits
print(te_result, digits = 10)

# disable boot-print
print(te_result, boot = FALSE)

# specify the quantiles of the bootstraps
print(te_result, probs = c(0, 0.1, 0.4, 0.5, 0.6, 0.9, 1))

# get LaTeX output:
print(te_result, tex = TRUE)

# set the reference label for LaTeX table
print(te_result, tex = TRUE, ref = "tab:te_result")

## Not run: 
# file output
print(te_result, file = "te_result_file.txt")
print(te_result, tex = TRUE, file = "te_result_file.tex")

## End(Not run)