What's wrong with
1-x
?
Sent from my iPad
> On 28 May 2025, at 21:41, Avi Gross <avi.e.gross at gmail.com> wrote:
>
> ?Paul,
>
> Perhaps slightly better and more concise is
>
> y <- -x + 1
>
> Why multiply? Of course it may be optimized in some cases.
>
>> On Tue, May 27, 2025, 3:36?AM Paul Zachos <paz at acase.org>
wrote:
>>
>> Wow! Amazing stuff.
>> It will take me a while to digest all that you have offered here.
>>
>> I came up with a simple solution myself:
>> y<- (-1*x)+1
>>
>> Thank you
>> _________________
>> Paul Zachos, PhD
>> Director, Research and Evaluation
>> Association for the Cooperative Advancement of Science and Education
>> (ACASE)
>> 110 Spring Street Saratoga Springs, NY 12866 |
>> paz at acase.org | www.acase.org
>>
>>
>>
>>
>>>> On May 19, 2025, at 3:08?AM, Rui Barradas <ruipbarradas at
sapo.pt> wrote:
>>>
>>> ?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 at 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.
>>> 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.
>>> www.avg.com
>>
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help at 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 at 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]]