a = rnorm(15)
lst <- list(
a = a,
b = c(a[10:15], rnorm(10), a[1:5]+10, a[1:5]),
c = c(rnorm(10), a[1:5])
)
f1 <- find_dataleaks(lst, h=5)
reason_dataleaks(lst, f1, h=5)
# List without naming elements
lst <- list(
a,
c(rnorm(10), a[1:5], a[1:5]),
rnorm(10)
)
f2 <- find_dataleaks(lst, h=5)
reason_dataleaks(lst, f2, h=5)
a = rnorm(15)
lst <- list(
a = a,
b = c(a[10:15], rnorm(10), a[1:5], a[1:5]),
c = c(rnorm(10), a[1:5])
)
f1 <- find_dataleaks(lst, h=5)
reason_dataleaks(lst, f1, h=5)
Run the code above in your browser using DataLab