Problems with the if else loop

Question

Good morning everyone

My problem is very simple: I have numeric vector (example) and from this through if else loop I would like to extract specific values.

example
 [1]  0.80  0.58  0.30  0.60  0.30  0.05  1.00  2.00 30.00  1.50

And this is my function which, however, always gives me the same mistake

    extractShips = function(i){
      ShippingCost = as.numeric()
       if(i <= 3){
        ShippingCost = 4.40
      }else if(i > 3 && i <= 5) {
        ShippingCost = 5.90
      }else if(i > 5 && i <= 10) {
        ShippingCost = 7.80
      }else if(i > 10 && i <= 25) {
        ShippingCost = 10.90
      }else if(i > 25 && i <= 50) {
        ShippingCost = 15.90
      }else if(i > 50 &&  i <= 100) {
        ShippingCost = 26.00
      }
    }

    **Error in if (y< 0) { : missing value where TRUE/FALSE needed**


ships <- NULL
for (i in 1:nrow(example)) {ships <-c(ships, extractShips(example))
}

thanks in advance to anyone who wants to help me

Descrizione.gruppo Famiglia
1       2            3        0             0          80       ADJ  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      BNO
2      19           29        0             0         830       ADJ  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      BNO
3       0            0        0             0           1 CG MOBILE  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      BNO
4       0            1        0             0           1    KOOPER  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      MY1
5       0            1        0             0           3    LENOVO  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      BNO
6       0            0        0             0           1  RIVACASE  00BO "BORSE ZAINI CUSTODIE"     UA            "BORSE"      BNO
  Descrizione.famiglia    Peso  Volume             EAN End.user
1     "BORSA NOTEBOOK"   "0.8" "0.004" "8054608902756"    17.89
2     "BORSA NOTEBOOK" "0.575"  "0.01" "8054608903197"     8.01
3     "BORSA NOTEBOOK"   "0.3" "0.004" "3700740423042"    40.25
4 "SPORT/TEMPO LIBERO"   "0.6"  "0.01" "8029121921928"    30.99
5     "BORSA NOTEBOOK"   "0.3" "0.001" "0193638156338"    43.57
6     "BORSA NOTEBOOK" "0.575" "0.009" "4260403573389"     18.2
>

If example is a vector, it would nave NULL rows. You might want to look at cut() or switch(). — vaettchen
– vaettchen, Commented Mar 9, 2022 at 13:35

rw2 · Accepted Answer · 2022-03-09 15:24:03Z

1

You can use an apply family function instead of a for loop.

#First get rid of NA's in the data:
focelda_grezzo$Peso[is.na(focelda_grezzo$Peso)] <- 0

# Define function:
extractShips = function(i){
  ShippingCost = as.numeric()
  if(i <= 3){
    ShippingCost = 4.40
  }else if(i > 3 && i <= 5) {
    ShippingCost = 5.90
  }else if(i > 5 && i <= 10) {
    ShippingCost = 7.80
  }else if(i > 10 && i <= 25) {
    ShippingCost = 10.90
  }else if(i > 25 && i <= 50) {
    ShippingCost = 15.90
  }else if(i > 50 &&  i <= 100) {
    ShippingCost = 26.00
  }
}

# Create a new column using your function
focelda_grezzo$ShippingCost <- sapply(focelda_grezzo$Peso, extractShips)

edited Mar 9, 2022 at 15:24

answered Mar 9, 2022 at 12:45

rw2

1,8152 gold badges13 silver badges27 bronze badges

Sign up to request clarification or add additional context in comments.

10 Comments

Stefano Maria De Francesco Over a year ago

To specify; is the column of a dataframe. I also tried with map_df () but nothing. At most it goes up to line number 100 and then only writes 0

rw2 Over a year ago

I can't understand your comment - is it missing some words? What is a column of a dataframe? You say that example is a vector?

Stefano Maria De Francesco Over a year ago

I'm sorry. Example is the column of a dataframe that contains the weight of some products. With this function I would like to get the shipping cost based on weight

Stefano Maria De Francesco Over a year ago

I tried with a trivial function but I get the same error. The error is in the function. function (i){ if(i > 0){ print("ok") }else if(i < 1) { print("NO") } }

rw2 Over a year ago

I've tried to work out your data based on your comments and edited my answer. I'm not sure what you mean regarding a trivial function. If this still doesn't work, I think you need to provide an example of your data.

|

Collectives™ on Stack Overflow

Problems with the if else loop

1 Answer 1

10 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

10 Comments

Your Answer

Sign up or log in

Post as a guest

Related