R version 3.2.5 (2016-04-14) -- "Very, Very Secure Dishes"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4,90.4)
> par4 = 'P1 P5 Q1 Q3 P95 P99'
> par3 = '0'
> par2 = '5'
> par1 = '50'
> par4 <- 'P1 P5 Q1 Q3 P95 P99'
> par3 <- '0'
> par2 <- '5'
> par1 <- '50'
> #'GNU S' R Code compiled by R2WASP v. 1.2.327 (Wed, 25 Nov 2015 11:13:57 +0000)
> #Author: root
> #To cite this work: Wessa P., (2015), Bootstrap Plot for Central Tendency (v1.0.14) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_bootstrapplot1.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #
> par1 <- as.numeric(par1)
> par2 <- as.numeric(par2)
> if (par3 == '0') bw <- NULL
> if (par3 != '0') bw <- as.numeric(par3)
> if (par1 < 10) par1 = 10
> if (par1 > 5000) par1 = 5000
> library(modeest)

This is package 'modeest' written by P. PONCET.
For a complete list of functions, use 'library(help = "modeest")' or 'help.start()'.

> library(lattice)
> library(boot)

Attaching package: 'boot'

The following object is masked from 'package:lattice':

    melanoma

> boot.stat <- function(s,i)
+ {
+ s.mean <- mean(s[i])
+ s.median <- median(s[i])
+ s.midrange <- (max(s[i]) + min(s[i])) / 2
+ s.mode <- mlv(s[i], method='mfv')$M
+ s.kernelmode <- mlv(s[i], method='kernel', bw=bw)$M
+ c(s.mean, s.median, s.midrange, s.mode, s.kernelmode)
+ }
> x<-na.omit(x)
> (r <- boot(x,boot.stat, R=par1, stype='i'))
Error in bw.SJ(x) : sample is too sparse to find TD
Calls: boot ... mlv -> mlv.default -> eval -> eval -> parzen -> bw.SJ
Execution halted