tests/simpleTests.R
In eddelbuettel/rapiserialize: R API Serialization
library(RApiSerialize)
data(trees)
fit <- lm(log(Girth) ~ log(Volume) + log(Height), trees)
## serialize and use R's unserialize
identical(unserialize(serializeToRaw(fit)), fit)
identical(unserialize(serializeToRaw(fit,2)), fit)
identical(unserialize(serializeToRaw(fit,3)), fit)
## serialize and use our unserialize
identical(unserializeFromRaw(serializeToRaw(fit)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,2)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,3)), fit)
## R's serialize and our unserialize
identical(unserializeFromRaw(serialize(fit, NULL)), fit)
## R's serialize and R's unserialize (doh)
identical(unserialize(serialize(fit, NULL)), fit)
eddelbuettel/rapiserialize documentation built on Feb. 27, 2024, 4:32 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(RApiSerialize)
data(trees)
fit <- lm(log(Girth) ~ log(Volume) + log(Height), trees)
## serialize and use R's unserialize
identical(unserialize(serializeToRaw(fit)), fit)
identical(unserialize(serializeToRaw(fit,2)), fit)
identical(unserialize(serializeToRaw(fit,3)), fit)
## serialize and use our unserialize
identical(unserializeFromRaw(serializeToRaw(fit)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,2)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,3)), fit)
## R's serialize and our unserialize
identical(unserializeFromRaw(serialize(fit, NULL)), fit)
## R's serialize and R's unserialize (doh)
identical(unserialize(serialize(fit, NULL)), fit)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.