Nothing
#$HeadURL: file:///srv/svn/sintro/pkg/sprof/R/print.sprof.R $
#$Id: print.sprof.R 178 2013-07-23 19:13:13Z gsawitzki $
#$Date: 2013-07-23 21:13:13 +0200 (Tue, 23 Jul 2013) $
#$Author: gsawitzki $
#$Revision: 178 $
#\encoding{utf8}
# setwd("")
#!
# setwd("")
# source('~/Documents/lectures/src/insider/profile/sprof/pkg/R/print_prof.R', chdir = TRUE)
#! To Do
#!
print_nodes <- function(x){
sn <- summary_nodes(x)
print(sn)
invisible(sn)
}
print_stacks <- function(x){
ss <- summary_stacks(x)
print(ss)
invisible(ss)
}
#print_terminals<- function(x){
# table(x$stacks$stackleafnodes)
# x$stacks$refcount
#}
print_profiles <- function(x){
sp <- summary_profiles(x)
print(sp)
invisible(sp)
}
print.sprof <- function(x,...){
print_nodes(x)
print_stacks(x)
print_profiles(x)
invisible(x)
}
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.