Vad är sigma?

skf

Visa/dölj fördelning

Visa/dölj histogram

Visa/dölj parametrar, formler

Visa/dölj programkod för R

40. Reducera och sammanfatta en process

Väntevärde, sigma och annat

Info, referenser, m.m...

Den skuggade ytan nedan representerar en kontinuerlig likformig fördelning. (Undre och övre gräns kan ändras.)
'my' och 'sigma' anges också.

'Kvadrera...' ger en ny fördelning.

μ:

σ:

Antal sim [50-5000]:

Kvadrera utfallet

Medelvärde:

Stand.avv.:

En kontinuerlig fördelning

En likformig fördelning

-1 σ

+1 σ

antal <- 400                 # Antal värden
undre <- 20                  # Undre gräns (likformig fördelning)
ovre  <- 30                  # Ovre gräns (likformig fördelning)

data1  <- runif(antal, undre, ovre)   # Simulerad datamängd

medelvarde1 <- mean(data1)            # Medelvärde 1
standardav1 <- sd(data1)              # Standardavvikelse 1


library(ggplot2)                      # Bibliotek för grafisk presentation

# ---------------------------------------- Histogram för 'likormig data' ----------------

hist <- ggplot(data.frame(data1), aes(data1)) + geom_histogram(bins=15, boundary=0, color='black', alpha = 0.5, aes(y = after_stat(density), fill = "red"), position = 'identity')
hist <- hist + labs(x = "Simulerade värden", y = "") + theme(legend.position="none")
hist <- hist + annotate("text", x = mean(range(undre, ovre)), y = Inf, label="Likformig fördelning", vjust = 1.5, size = 6, colour = "blue" )
hist


# ---------------------------------------- Histogram för 'kvadrerad data' ----------------

data2  <- data1*data1                 # Simulerad datamängd, kvadrerad

medelvarde2 <- mean(data2)            # Medelvärde 2
standardav2 <- sd(data2)              # Standardavvikelse 2

hist <- ggplot(data.frame(data2), aes(data2)) + geom_histogram(bins=15, boundary=0, color='black', alpha = 0.5, aes(y = after_stat(density), fill = "red"), position = 'identity')
hist <- hist + labs(x = "Simulerade värden", y = "") + theme(legend.position="none")
hist <- hist + annotate("text", x = mean(range(undre*undre, ovre*ovre)), y = Inf, label="Kvadrerad likformig fördelning", vjust = 1.5, size = 6, colour = "blue" )
hist