Dear Alberto,
Try this:
Res <- apply( bm[,colnames(bm) %in% d], 1, function(x) sum( as.numeric(x) )
)
cbind(bm, Res)
HTH,
Jorge
On Thu, Jul 23, 2009 at 3:31 PM, Alberto Lora M <albertolo...@gmail.com>wrote:
> Dear R project group
>
> I have the following problem
>
> Let suppose the following data:
>
>
>
> b<-c("0","1","1","1","0","1","0","0","1","0","1","1","1","0","1","1","0","1","1","0")
> bm<-matrix(b,ncol=4)
> colnames(bm)<-c("F1", "F2", "F3", "F4")
> d<-c("F1","F4")
>
> For the matrix bm i need to create a fifth column. 1This column should
> contain the sums of values where the columname is equal to the vector d.
> 2. I need to get the maximum and minimum value of this last column
> The matrix result should be like this
>
> *F1* F2 F3 *F4 Res*
> [1,] *"0"* "1" "1" "*1" "1"
> *[2,] "1" "0" "1" "0" *"1"*
> [3,] "1" "0" "1" "1" *"2"*
> [4,] "1" "1" "0" "1" *"2"*
> [5,] "0" "0" "1" "0" *"0"*
>
> Thxs again for your help
>
>
> --
> Alberto Lora Michiels
> Rue du Progrès, 6B
> 7860 Lessines
> GSM 32(0)496659457
>
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help@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.
>
>
[[alternative HTML version deleted]]
______________________________________________
R-help@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.
