Code: Alles auswählen
library(ggplot2)
N <- 1000
samples <- (roll = sample.int(7,N,replace = TRUE))
samples1 <- samples
samples1 <- samples1 %% 2 == 0
samples <- samples <= 4
P1 <- cumsum(samples1)/N
P2 <- cumsum(samples)/N
df <- data.frame(P1,P2)
a <- ggplot(df) + geom_line(aes(x=P1, y = seq_len(1000))) + geom_line(aes(x=P2, y = seq_len(1000)))
a