Nothing
classToInd <- function(x){
count.vec <- vector()
for (i in 1:nrow(x)){
tmp <- rep(x[i,1], x[i,2])
count.vec <- c(count.vec, tmp)
}
ind.table <- cbind(c(1:length(count.vec)), count.vec)
colnames(ind.table) <- c("ID", "No.Obs")
return(ind.table)
}
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.