[Rprotobuf-commits] r949 - in papers/jss: . JSSemails
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Apr 14 05:05:38 CEST 2015
Author: edd
Date: 2015-04-14 05:05:29 +0200 (Tue, 14 Apr 2015)
New Revision: 949
Added:
papers/jss/JSSemails/response-to-reviewers.pdf
Removed:
papers/jss/jss1313.R
Log:
one more for JSSemails/ dir
Added: papers/jss/JSSemails/response-to-reviewers.pdf
===================================================================
(Binary files differ)
Property changes on: papers/jss/JSSemails/response-to-reviewers.pdf
___________________________________________________________________
Added: svn:mime-type
+ application/octet-stream
Deleted: papers/jss/jss1313.R
===================================================================
--- papers/jss/jss1313.R 2015-04-13 19:59:43 UTC (rev 948)
+++ papers/jss/jss1313.R 2015-04-14 03:05:29 UTC (rev 949)
@@ -1,297 +0,0 @@
-### R code from vignette source '/home/edd/svn/rprotobuf/papers/jss/jss1313.Rnw'
-
-###################################################
-### code chunk number 1: jss1313.Rnw:130-136
-###################################################
-## cf http://www.jstatsoft.org/style#q12
-options(prompt = "R> ",
- continue = "+ ",
- width = 70,
- useFancyQuotes = FALSE,
- digits = 4)
-
-
-###################################################
-### code chunk number 2: jss1313.Rnw:318-326
-###################################################
-library("RProtoBuf")
-p <- new(tutorial.Person, id=1,
- name="Dirk")
-p$name
-p$name <- "Murray"
-cat(as.character(p))
-serialize(p, NULL)
-class(p)
-
-
-###################################################
-### code chunk number 3: jss1313.Rnw:421-422
-###################################################
-p <- new(tutorial.Person, name = "Murray", id = 1)
-
-
-###################################################
-### code chunk number 4: jss1313.Rnw:431-434
-###################################################
-p$name
-p$id
-p$email <- "murray at stokely.org"
-
-
-###################################################
-### code chunk number 5: jss1313.Rnw:442-445
-###################################################
-p[["name"]] <- "Murray Stokely"
-p[[ 2 ]] <- 3
-p[["email"]]
-
-
-###################################################
-### code chunk number 6: jss1313.Rnw:461-462
-###################################################
-p
-
-
-###################################################
-### code chunk number 7: jss1313.Rnw:469-470
-###################################################
-writeLines(as.character(p))
-
-
-###################################################
-### code chunk number 8: jss1313.Rnw:483-484
-###################################################
-serialize(p, NULL)
-
-
-###################################################
-### code chunk number 9: jss1313.Rnw:489-492
-###################################################
-tf1 <- tempfile()
-serialize(p, tf1)
-readBin(tf1, raw(0), 500)
-
-
-###################################################
-### code chunk number 10: jss1313.Rnw:538-540
-###################################################
-msg <- read(tutorial.Person, tf1)
-writeLines(as.character(msg))
-
-
-###################################################
-### code chunk number 11: jss1313.Rnw:660-661
-###################################################
-new(tutorial.Person)
-
-
-###################################################
-### code chunk number 12: jss1313.Rnw:685-690
-###################################################
-tutorial.Person$email
-tutorial.Person$email$is_required()
-tutorial.Person$email$type()
-tutorial.Person$email$as.character()
-class(tutorial.Person$email)
-
-
-###################################################
-### code chunk number 13: jss1313.Rnw:702-709
-###################################################
-tutorial.Person$PhoneType
-tutorial.Person$PhoneType$WORK
-class(tutorial.Person$PhoneType)
-tutorial.Person$PhoneType$value(1)
-tutorial.Person$PhoneType$value(name="HOME")
-tutorial.Person$PhoneType$value(number=1)
-class(tutorial.Person$PhoneType$value(1))
-
-
-###################################################
-### code chunk number 14: jss1313.Rnw:805-808
-###################################################
-if (!exists("JSSPaper.Example1", "RProtoBuf:DescriptorPool")) {
- readProtoFiles(file="int64.proto")
-}
-
-
-###################################################
-### code chunk number 15: jss1313.Rnw:830-834
-###################################################
-as.integer(2^31-1)
-as.integer(2^31 - 1) + as.integer(1)
-2^31
-class(2^31)
-
-
-###################################################
-### code chunk number 16: jss1313.Rnw:846-847
-###################################################
-2^53 == (2^53 + 1)
-
-
-###################################################
-### code chunk number 17: jss1313.Rnw:898-900
-###################################################
-msg <- serialize_pb(iris, NULL)
-identical(iris, unserialize_pb(msg))
-
-
-###################################################
-### code chunk number 18: jss1313.Rnw:928-931
-###################################################
-datasets <- as.data.frame(data(package="datasets")$results)
-datasets$name <- sub("\\s+.*$", "", datasets$Item)
-n <- nrow(datasets)
-
-
-###################################################
-### code chunk number 19: jss1313.Rnw:949-992
-###################################################
-datasets$object.size <- unname(sapply(datasets$name, function(x) object.size(eval(as.name(x)))))
-
-datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
-
-datasets$R.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize(eval(as.name(x)), NULL))))
-
-datasets$R.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize(eval(as.name(x)), NULL), "gzip"))))
-
-datasets$RProtoBuf.serialize.size <- unname(sapply(datasets$name, function(x) length(serialize_pb(eval(as.name(x)), NULL))))
-
-datasets$RProtoBuf.serialize.size.gz <- unname(sapply(datasets$name, function(x) length(memCompress(serialize_pb(eval(as.name(x)), NULL), "gzip"))))
-
-clean.df <- data.frame(dataset=datasets$name,
- object.size=datasets$object.size,
- "serialized"=datasets$R.serialize.size,
- "gzipped serialized"=datasets$R.serialize.size.gz,
- "RProtoBuf"=datasets$RProtoBuf.serialize.size,
- "gzipped RProtoBuf"=datasets$RProtoBuf.serialize.size.gz,
- "ratio.serialized" = datasets$R.serialize.size / datasets$object.size,
- "ratio.rprotobuf" = datasets$RProtoBuf.serialize.size / datasets$object.size,
- "ratio.serialized.gz" = datasets$R.serialize.size.gz / datasets$object.size,
- "ratio.rprotobuf.gz" = datasets$RProtoBuf.serialize.size.gz / datasets$object.size,
- "savings.serialized" = 1-(datasets$R.serialize.size / datasets$object.size),
- "savings.rprotobuf" = 1-(datasets$RProtoBuf.serialize.size / datasets$object.size),
- "savings.serialized.gz" = 1-(datasets$R.serialize.size.gz / datasets$object.size),
- "savings.rprotobuf.gz" = 1-(datasets$RProtoBuf.serialize.size.gz / datasets$object.size),
- check.names=FALSE)
-
-all.df<-data.frame(dataset="TOTAL", object.size=sum(datasets$object.size),
- "serialized"=sum(datasets$R.serialize.size),
- "gzipped serialized"=sum(datasets$R.serialize.size.gz),
- "RProtoBuf"=sum(datasets$RProtoBuf.serialize.size),
- "gzipped RProtoBuf"=sum(datasets$RProtoBuf.serialize.size.gz),
- "ratio.serialized" = sum(datasets$R.serialize.size) / sum(datasets$object.size),
- "ratio.rprotobuf" = sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size),
- "ratio.serialized.gz" = sum(datasets$R.serialize.size.gz) / sum(datasets$object.size),
- "ratio.rprotobuf.gz" = sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size),
- "savings.serialized" = 1-(sum(datasets$R.serialize.size) / sum(datasets$object.size)),
- "savings.rprotobuf" = 1-(sum(datasets$RProtoBuf.serialize.size) / sum(datasets$object.size)),
- "savings.serialized.gz" = 1-(sum(datasets$R.serialize.size.gz) / sum(datasets$object.size)),
- "savings.rprotobuf.gz" = 1-(sum(datasets$RProtoBuf.serialize.size.gz) / sum(datasets$object.size)),
- check.names=FALSE)
-clean.df<-rbind(clean.df, all.df)
-
-
-###################################################
-### code chunk number 20: SER
-###################################################
-old.mar<-par("mar")
-new.mar<-old.mar
-new.mar[3]<-0
-new.mar[4]<-0
-my.cex<-1.3
-par("mar"=new.mar)
-plot(clean.df$savings.serialized, clean.df$savings.rprotobuf, pch=1, col="red", las=1, xlab="Serialization Space Savings", ylab="Protocol Buffer Space Savings", xlim=c(0,1),ylim=c(0,1),cex.lab=my.cex, cex.axis=my.cex)
-points(clean.df$savings.serialized.gz, clean.df$savings.rprotobuf.gz,pch=2, col="blue")
-# grey dotted diagonal
-abline(a=0,b=1, col="grey",lty=2,lwd=3)
-
-# find point furthest off the X axis.
-clean.df$savings.diff <- clean.df$savings.serialized - clean.df$savings.rprotobuf
-clean.df$savings.diff.gz <- clean.df$savings.serialized.gz - clean.df$savings.rprotobuf.gz
-
-# The one to label.
-tmp.df <- clean.df[which(clean.df$savings.diff == min(clean.df$savings.diff)),]
-# This minimum means most to the left of our line, so pos=2 is label to the left
-text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
-
-# Some gziped version
-# text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=2, cex=my.cex)
-
-# Second one is also an outlier
-tmp.df <- clean.df[which(clean.df$savings.diff == sort(clean.df$savings.diff)[2]),]
-# This minimum means most to the left of our line, so pos=2 is label to the left
-text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=2, cex=my.cex)
-#text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=my.cex)
-
-
-tmp.df <- clean.df[which(clean.df$savings.diff == max(clean.df$savings.diff)),]
-# This minimum means most to the right of the diagonal, so pos=4 is label to the right
-# Only show the gziped one.
-#text(tmp.df$savings.serialized, tmp.df$savings.rprotobuf, labels=tmp.df$dataset, pos=4, cex=my.cex)
-text(tmp.df$savings.serialized.gz, tmp.df$savings.rprotobuf.gz, labels=tmp.df$dataset, pos=4, cex=my.cex)
-
-#outlier.dfs <- clean.df[c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
-
-legend("topleft", c("Raw", "Gzip Compressed"), pch=1:2, col=c("red", "blue"), cex=my.cex)
-
-interesting.df <- clean.df[unique(c(which(clean.df$savings.diff == min(clean.df$savings.diff)),
- which(clean.df$savings.diff == max(clean.df$savings.diff)),
- which(clean.df$savings.diff.gz == max(clean.df$savings.diff.gz)),
- which(clean.df$dataset == "TOTAL"))),c("dataset", "object.size", "serialized", "gzipped serialized", "RProtoBuf", "gzipped RProtoBuf", "savings.serialized", "savings.serialized.gz", "savings.rprotobuf", "savings.rprotobuf.gz")]
-# Print without .00 in xtable
-interesting.df$object.size <- as.integer(interesting.df$object.size)
-par("mar"=old.mar)
-
-
-###################################################
-### code chunk number 21: jss1313.Rnw:1231-1235
-###################################################
-require(HistogramTools)
-readProtoFiles(package="HistogramTools")
-hist <- HistogramTools.HistogramState$read("hist.pb")
-plot(as.histogram(hist), main="")
-
-
-###################################################
-### code chunk number 22: jss1313.Rnw:1323-1330 (eval = FALSE)
-###################################################
-## library("RProtoBuf")
-## library("httr")
-##
-## req <- GET('https://demo.ocpu.io/MASS/data/Animals/pb')
-## output <- unserialize_pb(req$content)
-##
-## identical(output, MASS::Animals)
-
-
-###################################################
-### code chunk number 23: jss1313.Rnw:1380-1396 (eval = FALSE)
-###################################################
-## library("httr")
-## library("RProtoBuf")
-##
-## args <- list(n=42, mean=100)
-## payload <- serialize_pb(args, NULL)
-##
-## req <- POST (
-## url = "https://demo.ocpu.io/stats/R/rnorm/pb",
-## body = payload,
-## add_headers (
-## "Content-Type" = "application/x-protobuf"
-## )
-## )
-##
-## output <- unserialize_pb(req$content)
-## print(output)
-
-
-###################################################
-### code chunk number 24: jss1313.Rnw:1400-1403 (eval = FALSE)
-###################################################
-## fnargs <- unserialize_pb(inputmsg)
-## val <- do.call(stats::rnorm, fnargs)
-## outputmsg <- serialize_pb(val)
-
-
More information about the Rprotobuf-commits
mailing list