y=1-x Regards, Sergiy On Mon, 19 May 2025, 16:44 Rui Barradas, <ruipbarra...@sapo.pt> wrote:
> Hello, > > And a test for equality of all solutions so far. > > > do.call( > identical, > list( > 1L - x, > +!x, > as.integer(!x), > as.integer(xor(x, 1L)) > ) > ) > #> [1] TRUE > > > Hope this helps, > > Rui Barradas > > Às 16:34 de 19/05/2025, Rui Barradas escreveu: > > Hello, > > > > You are right, I didn't think about that one. > > Here is another, esoteric, way. > > With `+` substituting for as.integer: > > > > +!x > > > > > > Hope this helps, > > > > Rui Barradas > > > > Às 09:10 de 19/05/2025, Goodale, Tom escreveu: > >> Surely doing > >> > >> y <- 1 - x > >> > >> would be the simplest way? > >> > >> Best, > >> Tom > >> > >>> -----Original Message----- > >>> From: R-help <r-help-boun...@r-project.org> On Behalf Of Rui Barradas > >>> Sent: 19 May 2025 08:08 > >>> To: paul zachos <anthanas...@me.com>; r-help@r-project.org > >>> Subject: Re: [R] Looking for a function or a set of steps > >>> > >>> Às 18:40 de 18/05/2025, paul zachos via R-help escreveu: > >>>> Dear R Community > >>>> > >>>> I am an R beginner > >>>> > >>>> I have a vector of '1's and '0's > >>>> > >>>> x > >>>> [1] 0 0 1 0 0 1 1 0 1 0 1 1 1 0 1 1 0 0 1 0 1 0 1 0 0 0 0 [28] 0 1 > 1 > >>>> 0 1 0 1 1 0 0 0 0 1 0 1 1 0 0 1 0 0 1 0 0 0 1 1 [55] 0 0 1 0 1 0 0 0 1 > >>>> 1 1 1 0 1 0 0 0 1 0 0 1 1 0 0 0 0 0 [82] 1 1 1 0 1 0 0 1 0 0 1 1 1 1 1 > >>>> > >>>> I would like to generate a new vector in which the '1's in x become > >>>> '0's and > >>> the '0's in x become '1's. > >>>> > >>>> How should I go about this? > >>>> > >>>> Thank you, > >>>> > >>>> paz > >>>> ______________________________________________ > >>>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > >>>> > https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r-he > >>>> > >>> lp__;!!IhKztkE!ZOgMEg6niCyC5iRHP37pMsbvSVBplGd5tceX7MuEFbAIlEIUCve > >>> Qks6 > >>>> n0DSai8s8sL6SEi_ShbQiY5HcgDz-iNeh4gbw$ > >>>> PLEASE do read the posting guide > >>>> > https://urldefense.com/v3/__https://www.R-project.org/posting-guide.ht > >>>> > >>> ml__;!!IhKztkE!ZOgMEg6niCyC5iRHP37pMsbvSVBplGd5tceX7MuEFbAIlEIUCve > >>> Qks6 > >>>> n0DSai8s8sL6SEi_ShbQiY5HcgDz-iJzObndg$ > >>>> and provide commented, minimal, self-contained, reproducible code. > >>> Hello, > >>> > >>> A simple way is to treat x as logical and negate its values. Then > >>> coerce to > >>> integer. > >>> > >>> > >>> x <- c(0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, > >>> 1L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, > >>> 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, > >>> 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, > >>> 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, > >>> 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, > >>> 1L) > >>> > >>> > >>> as.integer(!x) > >>> #> [1] 1 1 0 1 1 0 0 1 0 1 0 0 0 1 0 0 1 1 0 1 0 1 0 1 1 1 1 1 0 0 1 0 > >>> 1 0 0 1 1 1 > >>> #> [39] 1 0 1 0 0 1 1 0 1 1 0 1 1 1 0 0 1 1 0 1 0 1 1 1 0 0 0 0 1 0 1 1 > >>> 1 0 1 1 0 0 > >>> #> [77] 1 1 1 1 1 0 0 0 1 0 1 1 0 1 1 0 0 0 0 0 > >>> > >>> > >>> Also, the recommended way of posting data is with ?dput: > >>> > >>> > >>> dput(x) > >>> #> c(0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 1L, 1L, 1L, 0L, 1L, > >>> #> 1L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, > >>> #> 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, > >>> #> 0L, 1L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, > >>> #> 1L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, > >>> #> 0L, 0L, 1L, 1L, 1L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, > >>> #> 1L) > >>> > >>> > >>> Hope this helps, > >>> > >>> Rui Barradas > >>> > >>> > >>> -- > >>> Este e-mail foi analisado pelo software antivírus AVG para verificar > >>> a presença > >>> de vírus. > >>> https://urldefense.com/v3/__http://www.avg.com__;!!IhKztkE!ZOgMEg6niCy > >>> C5iRHP37pMsbvSVBplGd5tceX7MuEFbAIlEIUCveQks6n0DSai8s8sL6SEi_ShbQi > >>> Y5HcgDz-iB9H6CAC$ > >>> > >>> ______________________________________________ > >>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > >>> https://urldefense.com/v3/__https://stat.ethz.ch/mailman/listinfo/r- > >>> help__;!!IhKztkE!ZOgMEg6niCyC5iRHP37pMsbvSVBplGd5tceX7MuEFbAIlEIUC > >>> veQks6n0DSai8s8sL6SEi_ShbQiY5HcgDz-iNeh4gbw$ > >>> PLEASE do read the posting guide > >>> https://urldefense.com/v3/__https://www.R-project.org/posting- > >>> guide.html__;!!IhKztkE!ZOgMEg6niCyC5iRHP37pMsbvSVBplGd5tceX7MuEFbAI > >>> lEIUCveQks6n0DSai8s8sL6SEi_ShbQiY5HcgDz-iJzObndg$ > >>> and provide commented, minimal, self-contained, reproducible code. > >> > >> ________________________________ > >> Important Notice: Liverpool John Moores University was established as > >> a Higher Education Corporation under section 121 of the Education > >> Reform Act 1988. Further information about Liverpool John Moores > >> University can be found at https://www.ljmu.ac.uk/about-us The > >> information in this email and any attachments is for the sole use of > >> the intended recipient(s). If you are not an intended recipient, or a > >> person responsible for delivering it to an intended recipient, you > >> should delete it from your system immediately without disclosing its > >> contents elsewhere and advise the sender by returning the email or by > >> telephoning a number contained in the body of the email. No > >> responsibility is accepted for loss or damage arising from viruses or > >> changes made to this message after it was sent and the recipient must > >> ensure that the email (and attachments) are virus free. The views > >> contained in this email are those of the author and not necessarily > >> those of Liverpool John Moores University. We will use the personal > >> data information provided by you to respond to your email. For > >> information about how we process personal data and monitor > >> communications please see our Privacy Notice. https://www.ljmu.ac.uk/ > >> legal/privacy-and-cookies > > > > > > > > > -- > Este e-mail foi analisado pelo software antivírus AVG para verificar a > presença de vírus. > www.avg.com > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide > https://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 -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide https://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
