Displaying 1 result from an estimated 1 matches for "resultmat2".
Did you mean:
resultmat
2011 Jun 23
2
Confidence interval from resampling
...t;-rweibull(x, shape=xwei.shape, scale = xwei.scale)
})
newx<- data.frame(draw)
colnames(newx)<-paste("x", 1:100, sep = "")
newmat<-data.matrix(newx)
# matrix of coefficients
rownum=2
colnum=100
ResultMat<-matrix(NA, ncol=colnum, nrow=rownum)
rownum2=45
colnum2=100
ResultMat2<-matrix(NA, ncol=colnum2, nrow=rownum2)
#loop through each column in the source matrix
for (i in 1:100)
{
sel_col<-newmat[col(newmat)==i]
{ResultMat[,i]<-coef(fitdistr(sel_col,"weibull"))}
xwei.shape<- ResultMat[1,i]
xwei.scale<...