Displaying 1 result from an estimated 1 matches for "t1nsim".
Did you mean:
nsim
2008 Jun 20
1
Unexpected Behavior (potentially) in t.test
...turn logit of p;
# if p=.5 then logit==0 else sign(logit)==(p>.5)
return( log(p/(1-p)) )
}
antilogit <- function(x)
{
# compute and return antilogit of x;
# this returns a proportion p for which logit(p)==x;
return( exp(x)/(1+exp(x)) )
}
plainp <- c() #Clear the plainp value
t1Nsim <- (100/5) * 1000 * 10 # random chance should provide 10000 cases at
t1
contthreshold <- .25 #p value below which we run more subjects
t1pvals <- rep(NA,t1Nsim) #clear the pvalues
t2pvals <- rep(NA,t1Nsim) #clear the pvalues
t1N <- 10 #for debugging
t2N <- 5 #for debugging...