Hello,

Where is the problem in this programming. I want two way matrix, but it gives problem.
The program is given below:

Thanks in advance.

Regards
Fazli Raziq


rep = 2
genes = 5
pred = c()
iter   = array (dim = c(rep, pred))
pred = array(dim = c(1, genes))
m = c()
l = 1
w = 1
for(m in 1:rep) {
t = time
c = cens
tab = cbind(t, c)

# Resampling Time and Censoring
cc = sample(c, replace = TRUE)
tt = sample(t, replace = TRUE)
xx = Surv(tt, cc)

P = predic[,1:5]
n = 310
ma = matrix(P, n)
boot <- sample(seq(n), replace=TRUE)
genes5 = ma[boot, ]


for(p in 1: genes){
i = c()

for(i in w:l) {
z = genes5[,w: l]
y = coxph(xx ~ z)

}
Pval = summary(y) $ coeff[, 5]

if( any(Pval <= 0.01) ) sign <- 1 else sign <- 0
pred[1, p] = sign[1]
}

iter [m, 1:5] = pred[1: 5]

}
	[[alternative HTML version deleted]]

