Many, many thanks to Phil Spector and David Winsemius for their helpful
advice regarding this.
Phil Spector suggested me to use
library(boot)
xx = getAnywhere('print.boot')
myprint = xx$objs[[1]]
myprint = edit(myprint,editor='notepad')
vi(myprint)
to edit the function deleting the original func
Greetings Jorge;
There certainly did not seem to be something readily apparent with
str(bmean), so the next logical place to look would be for a print
method. If you look at print.boot with:
getAywhere(print.boot)
... you see that the first portion sets up an internal structure
called "
Dear all,
Let's say I have the following:
# Loading the boot package
# install.packages(boot)
library(boot)
# Generating data
set.seed(123)
x <- rnorm(100)
# Bootstrap for the sample mean
bmean <- boot(x, function(x,d) mean(x[d]), R=1000)
bmean
#
#ORDINARY NONPARAMETRIC BOOTSTRAP
#
#
#Call:
#bo
3 matches
Mail list logo
