Displaying 1 result from an estimated 1 matches for "t1pvals".
Did you mean:
pvals
2008 Jun 20
1
Unexpected Behavior (potentially) in t.test
...rn 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
for (t1N in 16:50) #Outer loop testing possible values for t1N
for (t2N in 1:50) #Inner loop testing possible values for t2N
{
print(paste("Ch...