Nothing
options(width=180,max.print=200,mc.cores=1,rf.cores=1)
suppressPackageStartupMessages(library(randomForestSRC,quietly=TRUE))
library(salbm,lib.loc="../../../libs/")
# ---------------------------------------------------------------
oname <- sprintf("LRDS/salbmResults0.rds")
trt1 <- readRDS("../RDS/Eg2_1.rds")
trt2 <- readRDS("../RDS/Eg2_2.rds")
K <- ncol(trt1)
data <- list( trt1 = trt1, trt2 = trt2 )
tm0 <- proc.time()
# ---------------------------------------------------------------
set.seed(231)
R <- salbmM( data = data, K = K, ntree = 1000, m = 3,
seeds = c(23,484), seeds2 = c(-5,-6), alphas = -12:8,
bBS = 1, NBootstraps = 0)
saveRDS(R,oname)
print(R)
tm1 <- proc.time()
print(tm0)
print(tm1)
print(tm1 - tm0)
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.