Displaying 1 result from an estimated 1 matches for "matout".
Did you mean:
datout
2011 Jun 23
2
Confidence interval from resampling
...[1,i]
xwei.scale<- ResultMat[2,i]
curve(pweibull(x, shape=xwei.shape, scale=xwei.scale, lower.tail=TRUE,
log.p = FALSE), add=TRUE, col='grey',lwd=0.5)
ResultMat2[,i]<-pweibull(x, shape=xwei.shape, scale =
xwei.scale,lower.tail=TRUE, log.p=FALSE)
}
## convert dataframe to numeric
MatOut<- as.matrix(ResultMat2)
mode(MatOut) <- "numeric"
# initiate variables
mm<-ml<-mu<-rep(0,length(MatOut[,1]))
# mean and upper/lower quantiles
for(i in 1:length(MatOut[,1])){
mm[i]<- mean(MatOut[i,])
ml[i]<- quantile(MatOut[i,], 0.025, na.rm=TRUE)
mu[i]<- quant...