Differences
This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | Last revision Both sides next revision | ||
lehrkraefte:ks:ffstat2223 [2024/02/23 09:45] Simon Knaus |
lehrkraefte:ks:ffstat2223 [2024/03/08 13:21] Simon Knaus [Lektion 04] |
||
---|---|---|---|
Line 570: | Line 570: | ||
* Kapitel 7 insb. Kapitel 7.1 | * Kapitel 7 insb. Kapitel 7.1 | ||
<hidden R-Code> | <hidden R-Code> | ||
- | <file code> | + | <code code> |
- | #Daten sind aus Excel in die Zwischenablage kopiert. | + | # cardata |
- | bmw <- read.table(file(" | + | head(cardata) |
- | library(ggplot2) | + | unique(cardata$model) |
- | library(plyr) | + | x5 <- cardata$model |
- | ggplot(bmw, | + | x5 #ein Vektor mit TRUE and FALSE |
- | names(bmw) | + | x5preise <- cardata$preis[x5] |
- | ddply(bmw,.(model),summarise, | + | mean(x5preise) |
- | ddply(bmw,.(model), | + | median(x5preise) |
- | ddply(bmw, | + | sd(x5preise) |
- | ddply(bmw,.(model,zylinder), | + | quantile(x5preise, 0.25) #25% Quantil |
- | #oder | + | quantile(x5preise, c(0.25, 0.75)) #25% Quantil und 75% Quantil |
- | tapply(bmw$preis, | + | |
- | tapply(bmw$preis, | + | library(plyr) # Zusatzpaket ' |
- | tapply(bmw$preis, | + | head(cardata) # Erste Zeilen anzeigen |
- | tapply(bmw$preis,bmw$model, | + | `? |
- | tapply((bmw$preis, | + | ) |
- | tapply((bmw$preis, | + | ddply(cardata, .(model), summarise, |
- | tapply((bmw$preis,bmw$model,quantile, | + | ddply(cardata, .(model), summarise, preis = median(preis)) |
- | #gibt das gleiche wie | + | ddply(cardata, .(model, |
- | tapply(bmw$preis, | + | </code> |
- | mean(bmw$preis[bmw$model==" | + | |
- | </file> | + | |
</ | </ | ||