tests/simpleTests.R

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)
## serialize and use our unserialize, no xdr
identical(unserializeFromRaw(serializeToRaw(fit,2,TRUE)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,3,TRUE)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,2,FALSE)), fit)
identical(unserializeFromRaw(serializeToRaw(fit,3,FALSE)), fit)

Try the RApiSerialize package in your browser

Any scripts or data that you put into this service are public.

RApiSerialize documentation built on Sept. 28, 2024, 5:08 p.m.