Displaying 2 results from an estimated 2 matches for "ntau".
Did you mean:
nau
2010 Oct 13
1
(no subject)
Dear all,
I have just sent an email with my problem, but I think no one can see the red part, beacuse it is black. So, i am writing again the codes:
rm(list=ls()) #remove almost everything in the memory
set.seed(180185)
nsim <- 10
mresultx <- matrix(-99, nrow=1000, ncol=nsim)
mresultb <- matrix(-99, nrow=1000, ncol=nsim)
N <- 200
I <- 5
taus <- c(0.480:0.520)
h <-
2010 Oct 15
0
nomianl response model
...:)
Note, I didn't know whether you really wanted to retain the resultx
and resultb matrices. I've left them in there just in case.
Michael
bidding.simulation <- function(nsim=10, N=200, I=5) {
set.seed(180185)
tau <- seq(0.48, 0.52, 0.001)
tau.mid <- which(tau == 0.5)
Ntau <- length(tau)
mresultx <- matrix(-99, nrow=I*N, ncol=nsim)
mresultb <- matrix(-99, nrow=I*N, ncol=nsim)
h <- seq(0.001, 0.020, 0.001)
Mb0 <- matrix(0, nrow=nsim, ncol=Ntau)
Mb1 <- matrix(0, nrow=nsim, ncol=Ntau)
colnames(Mb1) <- colnames(Mb0) <- paste("t...