R help - Oct 2015 - Recover value from boot and quantile function

#This may be trivia for some but I am running several bootstraps and 
#I would like to create a table/data frame with original mean, std.error from
the
#x.boot object and confidence intervals from x.quant object. The boot and
quantifile function  do not show how.


library(boot)
x <- rgamma(100,2,1)
x.boot <- boot(x, function(y,i) mean(y[i]), R=1000)
x.boot
hist(x.boot$t)
str(x.boot)
x.quant <- quantile(x.boot$t, p=c(0.025, 0.975))
x.quant
x.quant[1:2]
str(x.quant) Peter Maclean Department of Economics UDSM

#Create table/data frame

Is there a way in maxLik to fix/constraint a parameter to fall within a certain
range ? For example
I want sigma to be always between 1.98 and 2.02

library(maxLik)

 loglik <- function(param) {
  mu <- param[1]
  sigma <- param[2]
  ll <- -0.5*N*log(2*pi) - N*log(sigma) - sum(0.5*(x - mu)^2/sigma^2)
  ll
}
x <- rnorm(1000, 4.5, 2.1) 
N <- length(x)
res <- maxLik(loglik, start=c(0.5,0.5)) # use 'wrong' start values
print( res )
coef( res )