Copies the contents of one forward/backward table into another.
Arguments
- to
a
kalisForwardTableorkalisBackwardTableobject which is to be copied into.- from
a
kalisForwardTableorkalisBackwardTableobject which is to be copied from.
Details
The core code in kalis operates on forward and backward tables at a very low level, both for speed (using low level CPU vector instructions) but also to avoid unnecessary memory copies since these tables will tend to be very large in serious genetics applications. As a result, if you attempt to copy a table in the standard idomatic way in R:
then these two variables merely point to the same table: running the forward algorithm on fwd would result in fwd2 also changing.
This function is therefore designed to enable explicit copying of tables.
See also
MakeForwardTable(), MakeBackwardTable() to create tables which can be copied into.
Examples
# Load the toy haplotype example and set toy parameters
data("SmallHaps")
data("SmallMap")
CacheHaplotypes(SmallHaps)
rho <- CalcRho(diff(SmallMap))
pars <- Parameters(rho)
# Create the forward table we want to propagate
fwd <- MakeForwardTable(pars)
# Move to variant 10
Forward(fwd, pars, 10)
fwd
#> Full Forward Table object for 300 haplotypes.
#> Current variant = 10
#> Memory consumed: 723.98 kB
# This does **NOT** work as intended:
fwd2 <- fwd
Forward(fwd, pars, 20)
# Both tables are now at variant 20
fwd
#> Full Forward Table object for 300 haplotypes.
#> Current variant = 20
#> Memory consumed: 723.98 kB
fwd2
#> Full Forward Table object for 300 haplotypes.
#> Current variant = 20
#> Memory consumed: 723.98 kB
# Instead, to copy we create another table and use this function
fwd2 <- MakeForwardTable(pars)
CopyTable(fwd2, fwd)
# Now propagate fwd again
Forward(fwd, pars, 30)
# But notice this fwd2 wasn't affected
fwd
#> Full Forward Table object for 300 haplotypes.
#> Current variant = 30
#> Memory consumed: 723.98 kB
fwd2
#> Full Forward Table object for 300 haplotypes.
#> Current variant = 20
#> Memory consumed: 723.98 kB