# deb_lsd vector
x <- deb_lsd(l = 0:3, s = 4:7, d = 8:11)
deb_as_list(x)
# deb_tetra vector
y <- deb_tetra(l = 0:3, s = 4:7, d = 8:11, f = 1:4)
deb_as_list(y)
# This is the inverse of `deb_as_lsd()` of a list of lsd values
z <- deb_as_list(x)
identical(x, deb_as_lsd(z))
Run the code above in your browser using DataLab