AP <- available.packages()
getRevDep <- function(pkg) {
revdep <- tools::dependsOnPkgs(pkg, recursive=FALSE, installed=AP)
}
rcpp <- getRevDep("Rcpp")
pkg <- data.table(pkg=rcpp, rcpp=TRUE)
setkey(pkg, pkg)
sd3 <- pkg[sd2][is.na(rcpp)==TRUE, rcpp:=FALSE][]
dplyr <- getRevDep("dplyr")
pkg <- data.table(pkg=dplyr, dplyr=TRUE)
setkey(pkg, pkg)
sd4 <- pkg[sd3][is.na(dplyr)==TRUE, dplyr:=FALSE][]
rlang <- getRevDep("rlang")
pkg <- data.table(pkg=rlang, rlang=TRUE)
setkey(pkg, pkg)
sd5 <- pkg[sd4][is.na(rlang)==TRUE, rlang:=FALSE][]
#### Rcpp
# data 'manually' curated from the list of active Rcpp packages, commented out entries -> dead ones
rcpp <- fread("cat inst/data/rcpp.alive.txt inst/data/rcpp.dead.txt", header=FALSE)
names(rcpp) <- "package"
setkey(rcpp, package)
rcpp[, rcpp:=TRUE]
sd3 <- rcpp[sd2]
sd3[is.na(rcpp)==TRUE, rcpp:=FALSE]
###
summary(m <- coxph(Surv(life,event) ~ meansize + Depends + Imports + Suggests, data=sd3))
summary(m2 <- coxph(Surv(life,event) ~ meansize + nc*Depends + Imports + Suggests, data=sd3))
summary(m3 <- coxph(Surv(life,event) ~ meansize + nc*Depends + Imports + Suggests, data=sd3))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.