search for: all3

...orat/puces ADN macrophages/puces rat/Annie Dube/Analyse/RaGene-1_0-st-v1.na27.rn4.transcript.header.DOS.csv",head=TRUE, sep=",") > all <- merge(csv, Pvalue, by.x="sample", by.y=0, all=T) > all2 <- merge(all, Mean1, by.x="sample", by.y=0, all=T) > all3 <- merge(all2, Mean2, by.x="sample", by.y=0, all=T) > all4 <- merge(all3, sd1, by.x="sample", by.y=0, all=T) > all5 <- merge(all4, sd2, by.x="sample", by.y=0, all=T) > all6 <- merge(all5, d, by.x="sample", by.y=0, all=T) > write.ta...

Hi, I'm trying to take a matrix such as [,1] [,2] [,3] [,4] [,5] [1,] 2 7 2 7 9 [2,] 10 10 6 8 6 [3,] 1 9 7 2 0 and generate a new matrix which contains only the unique values in each row: [,1] [,2] [,3] [,4] [,5] [1,] 2 7 9 NA NA [2,] 10 6 8 NA NA [3,] 1 9 7 2 0 My problem is that I can use

...=Hp+p_b*log(p_b)*br[j] } return(Hp) } # the equality constraint function: equal1=function(x){ all2=sum(mat%*%x) sum_pterm=sum(mat[1:N,]%*%x/all2) sum_x=sum(x) return(c(sum_pterm,sum_x)) } # the right hand side for the constraint eqB=c(1,budget) # the inequality function inequal1=function(x){ all3=sum(mat%*%x) p_b=mat[1:BR,]%*%x/all3 return(as.vector(p_b)) } #the lower limit for inequalities ineqLB=rep(0.00001,BR) #the upper limit for the inequalities ineqUB=rep(1.00001,BR) # the lower and upper bounds for the variables LB=rep(0,CELL) UB=rep(1,CELL) #the seed for variables cells0=rep(.3...