Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Length=8.2
- if (Length<1)
- mode="Walk"
- else if (1<=Length & Length <5)
- mode="bike"
- else if (5<=Length & Length <10)
- mode="drive"
- else if (Length>=10)
- mode="fly"
- Length=3.5
- switch(Length,
- (Length<1) mode="Walk"
- (1<=Length & Length <5) mode="bike"
- (5<=Length & Length <10) mode="drive"
- (Length=>10) mode="fly"
- )
- Length <- 0:11
- cuts <- c(-Inf, 1, 5, 10, Inf)
- labs <- c("Walk", "bike", "drive", "fly")
- labs[findInterval(Length, cuts)]
- # [1] "Walk" "bike" "bike" "bike" "bike" "drive" "drive"
- # [8] "drive" "drive" "drive" "fly" "fly"
- ifelse(Length < 1, "Walk",
- ifelse(Length < 5, "bike",
- ifelse(Length < 10, "drive",
- "fly")))
- # [1] "Walk" "bike" "bike" "bike" "bike" "drive" "drive"
- # [8] "drive" "drive" "drive" "fly" "fly"
- Length <- 0:11
- cuts <- c(-Inf, 1, 5, 10, Inf)
- labs <- c("Walk", "bike", "drive", "fly")
- as.character(cut(Length, breaks = cuts, labels = labs, include.lowest=TRUE))
- # [1] "Walk" "Walk" "bike" "bike" "bike" "bike" "drive" "drive" "drive"
- # [10] "drive" "drive" "fly"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement