98  durch3-durch5

Schlüsselwörter

Aufgaben, Statistik, Prognose, Modellierung, R, Datenanalyse, Regression

98.1 Aufgabe

Gegeben sei ein Vektor x:

x <- 1:50

Schreiben Sie R-Code, der “durch3” ausgibt, wenn x durch 3 teilbar ist und (auch) “durch5” ausgibt, wenn x durch5 teilbar ist.

Hinweise:

• Orientieren Sie sich im Übrigen an den allgemeinen Hinweisen des Datenwerks.

98.2 Lösung

library(tidyverse)

d <-
  tibble(
    x = 1:50,
    txt = ""
  ) %>% 
  mutate(txt = case_when(
    (x %% 3) == 0 ~ str_c(txt, "_durch_3"),
    TRUE ~ txt)
  ) %>% 
  mutate(txt = case_when(
    (x %% 5) == 0 ~ str_c(txt, "_durch_5"),
    TRUE ~ txt
  ))

So sieht die Tabelle aus:

d

So kann man sich dann den Text ausgeben lassen:

d$txt
##  [1] ""                 ""                 "_durch_3"         ""                
##  [5] "_durch_5"         "_durch_3"         ""                 ""                
##  [9] "_durch_3"         "_durch_5"         ""                 "_durch_3"        
## [13] ""                 ""                 "_durch_3_durch_5" ""                
## [17] ""                 "_durch_3"         ""                 "_durch_5"        
## [21] "_durch_3"         ""                 ""                 "_durch_3"        
## [25] "_durch_5"         ""                 "_durch_3"         ""                
## [29] ""                 "_durch_3_durch_5" ""                 ""                
## [33] "_durch_3"         ""                 "_durch_5"         "_durch_3"        
## [37] ""                 ""                 "_durch_3"         "_durch_5"        
## [41] ""                 "_durch_3"         ""                 ""                
## [45] "_durch_3_durch_5" ""                 ""                 "_durch_3"        
## [49] ""                 "_durch_5"

Oder so:

d$txt %>% discard(\(x) x == "")
##  [1] "_durch_3"         "_durch_5"         "_durch_3"         "_durch_3"        
##  [5] "_durch_5"         "_durch_3"         "_durch_3_durch_5" "_durch_3"        
##  [9] "_durch_5"         "_durch_3"         "_durch_3"         "_durch_5"        
## [13] "_durch_3"         "_durch_3_durch_5" "_durch_3"         "_durch_5"        
## [17] "_durch_3"         "_durch_3"         "_durch_5"         "_durch_3"        
## [21] "_durch_3_durch_5" "_durch_3"         "_durch_5"

---

Categories:

• r
• challenge
• string