
R Programming Homework Solution on Gehan Test
- 17th Jun, 2022
- 15:42 PM
m=list(18,'<10> n=list(30,44,23,'<16> i=0 if((length(m)<10> print('111') while (i<2> m1=sample(m,replace=FALSE) n1=sample(m,replace=FALSE) hi=c() n1=length(m) n2=length(n) N=n1+n2 for (i in 1:N){if(i<11 hi[i]=0}else{hi[i]> delta1=c() d1=c() e1=c() T=0 count1=1 for (i in 1:n1){ if(typeof(m[[count1]])=="character"){ delta1[i]=0 count1=count1+1 T=T+1 }else{ delta1[i]=1 count1=count1+1 } } count1=1 for (i in (n1+1):N){ if(typeof(n[[count1]])=="character"){ delta1[i]=0 count1=count1+1 T=T+1 }else{ delta1[i]=1 count1=count1+1 } } for (i in 1:n1){ if(typeof(m[[i]])=="character"){ m[[i]]=as.double(substr(m[[i]],2,3)) } } for (i in 1:n2){ if(typeof(n[[i]])=="character"){ n[[i]]=as.double(substr(n[[i]],2,3)) } } combined_mn =list() for (j in 1:N){ if(j<(n1+1)){ combined_mn[[j]]=m[[j]] } else{ combined_mn[[j]]=n[[j-n1]] } } combined_mn=c(combined_mn) li=order(unlist(combined_mn)) i=1 data2=c() h=c() delta=c() # Data 1st column in table, h second column for (i in 1:N){ data2[[i]]=combined_mn[[li[i]]] h[i]=hi[li[i]] delta[i]=delta1[li[i]] } d1=c() e1=c() # d 4th column, e 5th column in table if(delta1[[1]]==1){ d1[1]=1 e1[1]=0 } else{ d1[1]=0 e1[1]=1 } i=1 for (i in 2:N){ if(delta[i]==1){d1[i]=d1[i-1]+1}else {d1[i]=d1[i-1]} } for (i in 2:N){ if(delta[i]==0){e1[i]=e1[i-1]+1}else {e1[i]=e1[i-1]} } R=c() # Ri 6th column for (i in 1:N){ if(delta[i]==1){ R[i] = d1[i] +(T+e1[i])/2 } else { R[i] = (T+1+d1[i])/2 } } #aRi 7th column aRi=c() N=length(R) for (i in 1:N){ aRi[i] = (2*R[i])-N-1 } data11=c() for(i in 1:N){ data11[i] = data2[[i]] } table <- data.frame( Data=data11, hi = h, deltai = delta, di = d1, ei=e1, Ri=R, aRi=aRi, stringsAsFactors = FALSE ) l1=length(m) l2=length(n) p= l1*l2 s=0 t=0 for (i in 1:N){ t=t+(h[i]*aRi[i]) s=s+(aRi[i])^2} denom = sqrt((p*s)/(N*(N-1))) num = t G=num/denom print(G) i=i+1 } }