Displaying 1 result from an estimated 1 matches for "outwi".
Did you mean:
outw
2011 Mar 20
2
Why unique(sample) decreases the performance ?
...i.simulation * (1 -
pi.simulation))
pi.star.simulation <- pi.simulation + ei.simulation^2 /
crossprod(e.simulation)
WKi.simulation <- (ti.star.simulation)*sqrt(pi.simulation/(1-pi.simulation))
Wi.simulation <- WKi.simulation * sqrt((nrow(dataX)-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....