search for: bootsampl

...or disguised parts that would reveal my plans for world domination. The function is right here at the top: #################### # bagging function: bagger <- function (length = 25, formula, dataframe) { trees <- vector(mode = "list", length = length) n <- nrow(dataframe) bootsamples <- rmultinom (length(trees), n, rep(1,n)/n) mod <- rpart(formula, data = dataframe, control = rpart.control(xval = 0)) for (i in 1:length(trees)) { trees[[i]] <- update(mod, weights = bootsamples[, i]) } } #br...

...lp me adjusting the following code to parallelized snow code: #Creating a data set (not needed to be parallel) n<-100 p<-100 x<-matrix(rnorm(n*p),p) y<-rnorm(n) # Bootstrapping nboot<-1000 alpha<-0.05 rhoboot <- array(0, dim=c(p,nboot)) bootranks <- array(0, dim=c(p,nboot)) bootsamples <- array( floor(runif(n*nboot)*n+1), dim=c(n,nboot)) for (i in 1:nboot){ rhoboot[,i] <- cor(y[bootsamples[,i]],x[bootsamples[,i],]) bootranks[,i] <- p+1rank(abs(rhoboot[,i])) } # Summarise results rankhigh = apply(bootranks, 1, quantile, probs=alpha/2) ranklow = apply(bootranks, 1, quant...

...ROR Only *source* packages can be checked. Here is what my file structure looks like: .: DESCRIPTION man R ./man: bootstrap.rd hessian.rd loglikelihood.rd stdeviation6.rd freq.rd ks.rd score6.rd stdeviation.rd hessian6.rd loglikelihood6.rd score.rd ./R: bootsample.r hessian6.r loglikelihood6.r score6.r stdeviation.r firstlib.r hessian.r loglikelihood.r score.r freq.r ks.r Prob.r stdeviation6.r here is what my DESCRIPTION file looks like: Package: samp Title: R custom simulation package Version: 0.1-1 Date: 2006-06...

Hi R-help, I am trying to implement a nonparametric bootstrap to find the standard errors of a simple statistics - the ratio of two scalars. I am having difficulty getting boot() to work correctly. I code a function to create the ratio of the relevant scalars. theta(data, i). When I call the function for my data and every observation appearing once, theta(test, c(1)), I get the correct