Deutsches R-Forum

Code: Alles auswählen

set.seed(42)
n <- 1000
s2 <- cumsum(sample.int(4, size=n, replace = TRUE)==2)
x <- 1:n
plot((s2/(1:n)) ~ x)

Code: Alles auswählen

set.seed(42)
n <- 1000
s2 <- cumsum(sample.int(4, size=n, replace = TRUE)==2)
plot((s2/(1:n)) ~ I(1:n))

Code: Alles auswählen

datasort <- as.data.frame(lapply(data2, sort, decreasing=TRUE, na.last=TRUE))

Code: Alles auswählen

sum(data$Alter > data$Betriebszugehörigkeit)

Code: Alles auswählen

with(data, Alter > Betriebszugehörigkeit)