Nothing
## Not exported yet ...
inflate <- function(df,w){
w <- eval(substitute(w),df,parent.frame())
i <- seq(nrow(df))
i <- rep(i,as.integer(w))
df[i,]
}
# test.inflate <- function(){
# testdata <- data.frame(x=c(1,2,3),y=c(4,5,6),weights=c(4,8,12))
# print(testdata)
# print(
# inflate(testdata,weights)
# )
# }
#
# test.expand()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.