[R] Remove Column from matrix

[Rui Barradas]

Hello,

Three things:
1. You don't need an explicit comparison to TRUE,

if(all(Asse[,"SSdiff"]==0)){

will do the same.
2. Your matrix Asse doesn't have colnames, try to see the output of

colnames(Asse)

You forgot to assign colnames(Asse) <- namVar.
3. Even if it did, SSdiff is the 4th column, which you have set to 2000 
so the if statement would return FALSE.

Hope this helps,

Rui Barradas
Em 21-11-2012 17:52, frespider escreveu:
> Hi,,
> Can I get help with this. I need to remove a column form the matrix if that
> specific column has his all entry zero, here the code I wrote but it is not
> working can you help me please
>
> namVar <-
> c("TrlgWSST","TrlgWSSE","TrlgWSSR","SSdiff","TrlgWMSE","TrlgWR2","TrlgWR2adj","TrlgSSE","TrlgMSE","TrlgR2","TrlgR2adj","TrSSE","TrMSE","TrR2","TrR2adj","rdf2",
> "TelgSSE","TelgMSE","TelgR2","TelgR2adj","TelgWSSE","TelgWMSE"
> ,"TelgWR2","TelgWR2adj","TeSSE","TeMSE","TeR2","TeR2adj","edf2","Runtime")
> Asse <- matrix(0,nrow=5,ncol=length(namVar))
> Asse[,1:3]<-2
> Asse[2,4] <-2000
> Asse[,5:10]<-3
> Asse[,11:20]<-5
> Asse[,21:30]<-12
> if(all(Asse[,"SSdiff"]==0)==TRUE){
> Asse <- Asse[,-which(colnames(Asse)%in%"SSdiff")]}
>              
>
>
>
>
>
> --
> View this message in context: http://r.789695.n4.nabble.com/Remove-Column-from-matrix-tp4650334.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.