Displaying 1 result from an estimated 1 matches for "simulation1".
Did you mean:
simulation
2011 Mar 20
2
Why unique(sample) decreases the performance ?
...ataX)-1)/(1-pi.simulation))
result[[i]] <- list(outWi.simulation=(Wi.simulation),influ.obs = any (dataY
==Y[j,] ))
}
i.obs <- sapply(result,function(x) {x$influ.obs})
ni.result <- result[! i.obs]
ni.Wi.simulation <- sapply(ni.result,function(x) {x$outWi.simulation})
if (j==1) {
ni.Wi.simulation1 <- ni.Wi.simulation
}else if (j==2) {
ni.Wi.simulation49 <- matrix(ni.Wi.simulation , nrow=1)
}else{
ni.Wi.simulation49
<-cbind(ni.Wi.simulation49,matrix(ni.Wi.simulation,nrow=1))
}
}
Can someone give me an idea ? Many thanks.
--
View this message in context: http://r.789695.n4.nabble...