locpres1 <-
function(isub,x,est){
#
# Compute a measure of location x[isub]
# isub is a vector of length mval,
# a bootstrap sample from the sequence of integers
# 1, 2, 3, ..., n
#
# mval is the sample size
# of the bootstrap sample, where mval<n is used to get
# consistency when choosing the correct model.
# This function is used by other functions when computing
# bootstrap estimates.
#
regboot<-est(x[isub])
regboot
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.