Nothing
tsubrmanovab<-function(isub,x,tr){
#
# Compute test statistic for trimmed means
# when comparing dependent groups.
# By default, 20% trimmed means are used.
# isub is a vector of length n,
# a bootstrap sample from the sequence of integers
# 1, 2, 3, ..., n
#
# This function is used by rmanovab
#
tsub<-rmanovab1(x[isub,],tr=tr)$test
tsub
}
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.