Displaying 4 results from an estimated 4 matches for "matrix_mann".
Did you mean:
matrix8_mann
2016 Apr 25
0
use switch or function in connecting different cases.
...(list=ls())
t <- u<- mann<- rep(0, 45)
Nsimulation<-function(S1,S2,Sds,nSims)
{
set.seed(1)
for (sim in 1:nSims)
{
matrix_t <-matrix(0,nrow=nSims,ncol=3)
matrix_u<-matrix(0,nrow=nSims,ncol=3)
matrix_mann <-matrix(0,nrow=nSims,ncol=3)
#generate random samples from 2 normal distribution
x<-rnorm(S1,5,Sds)
y<-rnorm(S2,5,4)
#extract p-value out and store every p-value into matrix
matrix_t[sim,1]<-t.test(x,y,var.equal=TRUE)...
2016 Apr 25
2
R: use switch or function in connecting different cases.
...i have been told that it can all been done within one code.
can anyone give me a brief idea on it.
I just managed to write till here and it perhaps isnt correct ..
#set up matrix for storing data from simulation
matrix_t <-matrix(0,nrow=nSims,ncol=3)
matrix_u<-matrix(0,nrow=nSims,ncol=3)
matrix_mann <-matrix(0,nrow=nSims,ncol=3)
sample_sizes<-
matrix(c(10,10,10,25,25,25,25,50,25,100,50,25,50,100,100,25,100,100),
nrow=2)
p1<-p2<-p3<-vector()
nSims<-10
alpha<-0.05
set.seed(1)
simulation<-function(m,n,sds)
{
for (ss in 1:...
2016 Apr 06
0
R-dvel [robustness Simulation study of 2 sample test on several combination of factors ]
...s))
t_unequal <-c(rep(0,length=ncalcs))
mann <-c(rep(0,length=ncalcs))
#set up matrix for storing data from the vectors
# but you do want 10000 replications of each calculation
matrix_Equal<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
matrix_Unequal<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
matrix_mann<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
############Simulations
for (sim in 1:nSims){
# this loop steps through the sample sizes
for(ss in 1:dim(sample_sizes)[2]) {
m<-sample_sizes[1,ss]
n<-sample_sizes[2,ss]
# initialize the index for results
i<-1
for (sd in sds) { #fir...
2016 Apr 06
0
R-dvel [robustness Simulation study of 2 sample test on several combination of factors ]
...ncalcs))
> mann <-c(rep(0,length=ncalcs))
>
> #set up matrix for storing data from the vectors
> # but you do want 10000 replications of each calculation
> matrix_Equal<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
> matrix_Unequal<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
> matrix_mann<-matrix(rep(NA,ncalcs*nSims),nrow=nSims)
>
> ############Simulations
>
> for (sim in 1:nSims){
> # this loop steps through the sample sizes
> for(ss in 1:dim(sample_sizes)[2]) {
> m<-sample_sizes[1,ss]
> n<-sample_sizes[2,ss]
> # initialize the index for...