thr3ads.net - R help - [R] unexpected 'else' in " else" [Oct 2022]

If this information is useful, please help other people find it:
Share via:

Martin Maechler

2022-Oct-21 12:42 UTC

[R] unexpected 'else' in " else"

>>>>> Ebert,Timothy Aaron 
>>>>>     on Fri, 21 Oct 2022 12:05:58 +0000 writes:
    > I can get it to work with
    > ifelse(is.matrix(r), r[w!=0, , drop=FALSE], r[w!=0])

Note that this is *not* good advice:

  if(Cnd) A else B    is very much more efficient  than
  ifelse(Cnd, A, B)

whenever it is appropriate, i.e.,
the condition Cnd is a simple TRUE or FALSE.

ifelse() is very much over-used!

{For the more sophisticated reader:
 In R, these both are function calls:
 `if` is a function of 3 argument with a "peculiar" syntax and
 the third argument with default NULL.
}

Martin Maechler
ETH Zurich  and  R Core team



    > With w and r as defined r is not a  matrix, so the first part will
never execute. The test is for w not equal to zero so it is always true for
these vectors. It is usually good to have test code such that all possible cases
are activated.

    > r<--1:8
    > w<- -1:5
    > if(is.matrix(r)){
    > r[w!=0, , drop=FALSE]
    > } else r[w != 0]

    > I think this also works. The "else" must follow the } and you
put in a carriage return after the }

    > I think that is the answer, but not 100% sure.

    > Tim

    > -----Original Message-----
    > From: R-help <r-help-bounces at r-project.org> On Behalf Of
Andrew Simmons
    > Sent: Friday, October 21, 2022 5:37 AM
    > To: Jinsong Zhao <jszhao at yeah.net>
    > Cc: R-help Mailing List <r-help at r-project.org>
    > Subject: Re: [R] unexpected 'else' in " else"

    > [External Email]

    > The error comes from the expression not being wrapped with braces. You
could change it to

    > if (is.matrix(r)) {
    > r[w != 0, , drop = FALSE]
    > } else r[w != 0]

    > or

    > {
    > if (is.matrix(r))
    > r[w != 0, , drop = FALSE]
    > else r[w != 0]
    > }

    > or

    > if (is.matrix(r)) r[w != 0, , drop = FALSE] else r[w != 0]


    > On Fri., Oct. 21, 2022, 05:29 Jinsong Zhao, <jszhao at yeah.net>
wrote:

    >> Hi there,
    >> 
    >> The following code would cause R error:
    >> 
    >> > w <- 1:5
    >> > r <- 1:5
    >> >         if (is.matrix(r))
    >> +             r[w != 0, , drop = FALSE]
    >> >         else r[w != 0]
    >> Error: unexpected 'else' in "        else"
    >> 
    >> However, the code:
    >> if (is.matrix(r))
    >> r[w != 0, , drop = FALSE]
    >> else r[w != 0]
    >> is extracted from stats::weighted.residuals.
    >> 
    >> My question is why the code in the function does not cause error?
    >> 
    >> Best,
    >> Jinsong
    >> 
    >> ______________________________________________
    >> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more,
see
    >>
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat
    >>
.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&amp;data=05%7C01%7Ctebert%40ufl
    >>
.edu%7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e
    >>
1b84%7C0%7C0%7C638019419897938843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4w
    >>
LjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C
    >>
&amp;sdata=9ImIUx0YyKjFMTDRrwa5fnkqiJL9aDjpGCRxxfI6Hlk%3D&amp;reserved
    >> =0
    >> PLEASE do read the posting guide
    >>
https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r
    >>
-project.org%2Fposting-guide.html&amp;data=05%7C01%7Ctebert%40ufl.edu%
    >>
7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e1b84%
    >>
7C0%7C0%7C638019419897938843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwM
    >>
DAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;
    >>
sdata=WsqoNk2NQ6NOjKoOKwf%2FPU57XkAwKtRhw6xb68COT1o%3D&amp;reserved=0
    >> 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://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&amp;data=05%7C01%7Ctebert%40ufl.edu%7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019419898095081%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=2mYpa25vpXNvPNINi9XxCtc7Vbj4Sp4IQUsA9fL%2BA60%3D&amp;reserved=0
    > PLEASE do read the posting guide
https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r-project.org%2Fposting-guide.html&amp;data=05%7C01%7Ctebert%40ufl.edu%7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019419898095081%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=21LO4e%2BNnGmlDjm3XfExMX63Z2viUePxMaHbcgm7JuA%3D&amp;reserved=0
    > and provide commented, minimal, self-contained, reproducible code.

    > ______________________________________________
    > 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
http://www.R-project.org/posting-guide.html
    > and provide commented, minimal, self-contained, reproducible code.

Ebert,Timothy Aaron

2022-Oct-21 17:38 UTC

head link

[R] unexpected 'else' in " else"

Is there a place where you would use ifelse()? I used it here because it was
short and there was no indication of lots of data. In the example I cannot tell
the difference of a few hundred milliseconds execution time. Benchmarking code
is important for larger problems.

Tim

-----Original Message-----
From: Martin Maechler <maechler at stat.math.ethz.ch> 
Sent: Friday, October 21, 2022 8:43 AM
To: Ebert,Timothy Aaron <tebert at ufl.edu>
Cc: Andrew Simmons <akwsimmo at gmail.com>; Jinsong Zhao <jszhao at
yeah.net>; R-help Mailing List <r-help at r-project.org>
Subject: Re: [R] unexpected 'else' in " else"

[External Email]
>>>>> Ebert,Timothy Aaron
>>>>>     on Fri, 21 Oct 2022 12:05:58 +0000 writes:
    > I can get it to work with
    > ifelse(is.matrix(r), r[w!=0, , drop=FALSE], r[w!=0])

Note that this is *not* good advice:

  if(Cnd) A else B    is very much more efficient  than
  ifelse(Cnd, A, B)

whenever it is appropriate, i.e.,
the condition Cnd is a simple TRUE or FALSE.

ifelse() is very much over-used!

{For the more sophisticated reader:
 In R, these both are function calls:
 `if` is a function of 3 argument with a "peculiar" syntax and  the
third argument with default NULL.
}

Martin Maechler
ETH Zurich  and  R Core team



    > With w and r as defined r is not a  matrix, so the first part will
never execute. The test is for w not equal to zero so it is always true for
these vectors. It is usually good to have test code such that all possible cases
are activated.

    > r<--1:8
    > w<- -1:5
    > if(is.matrix(r)){
    > r[w!=0, , drop=FALSE]
    > } else r[w != 0]

    > I think this also works. The "else" must follow the } and you
put in a carriage return after the }

    > I think that is the answer, but not 100% sure.

    > Tim

    > -----Original Message-----
    > From: R-help <r-help-bounces at r-project.org> On Behalf Of
Andrew Simmons
    > Sent: Friday, October 21, 2022 5:37 AM
    > To: Jinsong Zhao <jszhao at yeah.net>
    > Cc: R-help Mailing List <r-help at r-project.org>
    > Subject: Re: [R] unexpected 'else' in " else"

    > [External Email]

    > The error comes from the expression not being wrapped with braces. You
could change it to

    > if (is.matrix(r)) {
    > r[w != 0, , drop = FALSE]
    > } else r[w != 0]

    > or

    > {
    > if (is.matrix(r))
    > r[w != 0, , drop = FALSE]
    > else r[w != 0]
    > }

    > or

    > if (is.matrix(r)) r[w != 0, , drop = FALSE] else r[w != 0]


    > On Fri., Oct. 21, 2022, 05:29 Jinsong Zhao, <jszhao at yeah.net>
wrote:

    >> Hi there,
    >>
    >> The following code would cause R error:
    >>
    >> > w <- 1:5
    >> > r <- 1:5
    >> >         if (is.matrix(r))
    >> +             r[w != 0, , drop = FALSE]
    >> >         else r[w != 0]
    >> Error: unexpected 'else' in "        else"
    >>
    >> However, the code:
    >> if (is.matrix(r))
    >> r[w != 0, , drop = FALSE]
    >> else r[w != 0]
    >> is extracted from stats::weighted.residuals.
    >>
    >> My question is why the code in the function does not cause error?
    >>
    >> Best,
    >> Jinsong
    >>
    >> ______________________________________________
    >> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more,
see
    >>
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat
    >>
.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&amp;data=05%7C01%7Ctebert%40ufl
    >>
.edu%7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e
    >>
1b84%7C0%7C0%7C638019419897938843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4w
    >>
LjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C
    >>
&amp;sdata=9ImIUx0YyKjFMTDRrwa5fnkqiJL9aDjpGCRxxfI6Hlk%3D&amp;reserved
    >> =0
    >> PLEASE do read the posting guide
    >>
https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r%2F&amp;data=05%7C01%7Ctebert%40ufl.edu%7Cd3824be0a76a4e488dda08dab361d1e6%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019529977132811%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=MTmSNg1tfjToCYtWtMf01Hhy93K0TpT3DPwuvYqVv0s%3D&amp;reserved=0
    >>
-project.org%2Fposting-guide.html&amp;data=05%7C01%7Ctebert%40ufl.edu%
    >>
7C98bd495a0754455cbead08dab348311f%7C0d4da0f84a314d76ace60a62331e1b84%
    >>
7C0%7C0%7C638019419897938843%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwM
    >>
DAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;
    >>
sdata=WsqoNk2NQ6NOjKoOKwf%2FPU57XkAwKtRhw6xb68COT1o%3D&amp;reserved=0
    >> 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://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&amp;data=05%7C01%7Ctebert%40ufl.edu%7Cd3824be0a76a4e488dda08dab361d1e6%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019529977132811%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=5omzPR7XzgdKZG6pr0Ro%2F6hplvltKLHdDvNkOUVv5qM%3D&amp;reserved=0
    > PLEASE do read the posting guide
https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r-project.org%2Fposting-guide.html&amp;data=05%7C01%7Ctebert%40ufl.edu%7Cd3824be0a76a4e488dda08dab361d1e6%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019529977289047%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=T%2F7it0%2BBAopri6bKPLiS8TySi%2FrFejAuvZLOJkVKA2A%3D&amp;reserved=0
    > and provide commented, minimal, self-contained, reproducible code.

    > ______________________________________________
    > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
    >
https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat.ethz.ch%2Fmailman%2Flistinfo%2Fr-help&amp;data=05%7C01%7Ctebert%40ufl.edu%7Cd3824be0a76a4e488dda08dab361d1e6%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019529977289047%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=OGKDKErNG%2FCYRbDMbsLYqaoILdw84WIxD2D0HUY6XE4%3D&amp;reserved=0
    > PLEASE do read the posting guide
https://nam10.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.r-project.org%2Fposting-guide.html&amp;data=05%7C01%7Ctebert%40ufl.edu%7Cd3824be0a76a4e488dda08dab361d1e6%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638019529977289047%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&amp;sdata=T%2F7it0%2BBAopri6bKPLiS8TySi%2FrFejAuvZLOJkVKA2A%3D&amp;reserved=0
    > and provide commented, minimal, self-contained, reproducible code.

R help - Oct 2022 - unexpected 'else' in " else"

[R] unexpected 'else' in " else"

[R] unexpected 'else' in " else"