3 Lösungen

3.1 Lösung 1

# Aufgabe 1

library(easystats)

# Attaching packages: easystats 0.7.1 (red = needs update)
✔ bayestestR  0.13.2    ✖ correlation 0.8.4  
✖ datawizard  0.10.0    ✖ effectsize  0.8.7  
✖ insight     0.19.10   ✖ modelbased  0.8.7  
✖ performance 0.11.0    ✖ parameters  0.21.6 
✔ report      0.5.8     ✔ see         0.8.4  

Restart the R-Session and update packages with `easystats::easystats_update()`.

#1.1
V1 <- 4
V2 <- 3

#1.2
V1 - V2

[1] 1

#1.3
V3 <- V1-V2
V3 == 1

[1] TRUE

3.2 Lösung 2

#Aufgabe 2

#2.1
V4 <- c(1:20)

#2.2
mean(V4)

[1] 10.5

#2.3
median(V4)

[1] 10.5

#2.4
sd(V4)

[1] 5.91608

#2.5
describe_distribution(V4)

ABCDEFGHIJ0123456789

Mean <dbl>	SD <dbl>	IQR <dbl>	Min <int>	Max <int>	Skewness <dbl>	Kurtosis <dbl>	n <int>	n_Missing <int>
10.5	5.91608	10.5	1	20	0	-1.2	20	0

#2.6
mean(c(1:13))

[1] 7

3.3 Lösung 3

sum(x = c(13, 5, 27, 4))

[1] 49

3.4 Lösung 4

x <- 8
Y <- 4

x + Y

[1] 12

3.5 Lösung 5

loesung <-42
loesung = 42