Nothing
Provide an alternative profiling data diplay as tree structure.
prof.tree is not yet on CRAN; it is currently available from GitHub. Make sure you have the devtools package installed, and then run:
devtools::install_github("artemklevtsov/prof.tree")
times <- 4e5
cols <- 150
data <- as.data.frame(x = matrix(rnorm(times * cols, mean = 5), ncol = cols))
data <- cbind(id = paste0("g", seq_len(times)), data)
Rprof(tmp <- tempfile())
data1 <- data # Store in another variable for this run
# Get column means
means <- apply(data1[, names(data1) != "id"], 2, mean)
# Subtract mean from each column
for (i in seq_along(means))
data1[, names(data1) != "id"][, i] <- data1[, names(data1) != "id"][, i] - means[i]
Rprof(NULL)
library(prof.tree)
prof.tree(tmp)
unlink(tmp)
#> levelName real percent env
#> 1 * 5.66 100.0 %
#> 2 ¦--`apply` 4.58 80.9 % base
#> 3 ¦ ¦--`as.matrix` 2.34 41.3 % base
#> 4 ¦ ¦ °--`as.matrix.data.frame` 2.34 41.3 % base
#> 5 ¦ ¦ °--... 1 nodes w/ 0 sub NA
#> 6 ¦ ¦--`aperm` 1.42 25.1 % base
#> 7 ¦ ¦ °--... 1 nodes w/ 0 sub NA
#> 8 ¦ °--`FUN` 0.16 2.8 %
#> 9 ¦ °--... 1 nodes w/ 0 sub NA
#> 10 ¦--`[<-` 0.62 11.0 % base
#> 11 ¦ °--`[<-.data.frame` 0.62 11.0 % base
#> 12 ¦ ¦--`order` 0.32 5.7 % base
#> 13 ¦ ¦ °--... 4 nodes w/ 1 sub NA
#> 14 ¦ °--... 1 nodes w/ 5 sub NA
#> 15 °--`-` 0.46 8.1 % base
First check the changes in the latest version of the package. Type type into R:
news(package = "prof.tree", Version == packageVersion("prof.tree"))
Try reproduce a bug with the latest development version from Git.
To report a bug please type into R:
utils::bug.report(package = "prof.tree")
Post the traceback()
and sessionInfo()
output also may be helpful.
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.