Hi
As matrix is vector with dim attribute
mymat<-ifelse(mymat==0, "A","P")
should be sufficient.
Even with data frame it works
mydf<-data.frame(mymat)
mydf<-ifelse(mydf==0, "A","P")
mydf
X1 X2 X3
[1,] "P" "P" "A"
[2,] "A" "A" "A"
[3,] "A" "A" "P"
[4,] "A" "A" "P"
[5,] "P" "P" "P"
Regards
Petr
r-help-boun...@r-project.org napsal dne 18.08.2009 13:58:51:
> On 8/17/2009 10:22 AM, Lana Schaffer wrote:
> > Hi,
> > Can someone suggest an efficient way to substitute a vector/matrix
> > which contains 1's and 0's to P's and A's (resp.)?
> > Thanks,
> > Lana
>
> Here is one approach:
>
> mymat <- matrix(rbinom(15, 1, .5), ncol=3)
>
> mymat
> [,1] [,2] [,3]
> [1,] 1 0 0
> [2,] 0 0 1
> [3,] 1 0 1
> [4,] 0 1 0
> [5,] 1 1 0
>
> mymat[] <- sapply(mymat, function(x){ifelse(x == 1, 'P', ifelse(x == 0,
> 'A', NA))})
>
> mymat
> [,1] [,2] [,3]
> [1,] "P" "A" "A"
> [2,] "A" "A" "P"
> [3,] "P" "A" "P"
> [4,] "A" "P" "A"
> [5,] "P" "P" "A"
>
> > ______________________________________________
> > 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.
>
> --
> Chuck Cleland, Ph.D.
> NDRI, Inc. (www.ndri.org)
> 71 West 23rd Street, 8th floor
> New York, NY 10010
> tel: (212) 845-4495 (Tu, Th)
> tel: (732) 512-0171 (M, W, F)
> fax: (917) 438-0894
>
> ______________________________________________
> 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.
______________________________________________
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.
