Statystyka/zajecia3/.Rhistory
Jakub Adamski 4a996fcca1 zajecia-3
2021-04-04 14:14:06 +02:00

250 lines
9.9 KiB
R

ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
View(ankieta)
View(ankieta)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta), procent = prop.table(table(ankieta))))
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta), procent = prop.table(table(ankieta))))
print(empiryczny)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
print(empiryczny)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
tylko_pods <- ankieta[ankieta$szkola == p]
empiryczny <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
tylko_pods <- ankieta[ankieta$szkola == "p"]
empiryczny <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny)
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny)
barplot(table(ankieta))
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(empiryczny,
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(empiryczny[empiryczny$liczebnosc],
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(empiryczny[empiryczny$liczebnosc, ],
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(table(empiryczny),
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(table(empiryczny[empiryczny$liczebnosc, ]),
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
print(table(empiryczny))
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(empiryczny,
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
print(empiryczny)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(empiryczny,
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
print(empiryczny)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))),
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
print(empiryczny)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(table(ankieta$wynik),
xLab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
# ZAD 1
ankieta <- read.table("http://ls.home.amu.edu.pl/data_sets/ankieta.txt", header = TRUE)
empiryczny <- data.frame(cbind(liczebnosc = table(ankieta$wynik),
procent = prop.table(table(ankieta$wynik))))
print(empiryczny)
tylko_pods <- ankieta[ankieta$szkola == "p", ]
empiryczny_pods <- data.frame(cbind(liczebnosc = table(tylko_pods$wynik),
procent = prop.table(table(tylko_pods$wynik))))
print(empiryczny_pods)
barplot(table(ankieta$wynik),
xlab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
barplot(prop.table(table(ankieta$wynik)),
xlab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
pie(table(ankieta$wynik))
barplot(prop.table(table(ankieta$wynik, ankieta$plec)),
beside = TRUE,
xlab = "Odpowiedzi", ylab = "Odpowiedzi",
main = "Rozkład empiryczny zmiennej wynik")
barplot(prop.table(table(ankieta$wynik, ankieta$plec)),
beside = TRUE,
legend = levels(ankieta$wynik))
barplot(prop.table(table(ankieta$wynik, ankieta$plec)),
beside = TRUE,
col = 1:5,
legend = levels(ankieta$wynik))
centrala <- read.table("http://ls.home.amu.edu.pl/data_sets/Centrala.RData", header = TRUE)
load(url("http://ls.home.amu.edu.pl/data_sets/Centrala.RData"))
head(Centrala)
View(Centrala)
View(Centrala)
load(url("http://ls.home.amu.edu.pl/data_sets/Centrala.RData"))
head(Centrala)
empiryczny <- data.frame(cbind(liczebnosc = table(Centrala$Liczba),
procent = prop.table(table(Centrala$Liczba))))
print(empiryczny)
barplot(table(Centrala$Liczba),
legend = levels(Centrala$Liczba))
barplot(table(Centrala$Liczba),
col = 1:5,
legend = levels(Centrala$Liczba))
barplot(prop.table(table(Centrala$Liczba)),
col = 1:5,
legend = levels(Centrala$Liczba))
pie(table(Centrala$Liczba))
mean(Centrala$Liczba)
median(Centrala$Liczba)
sd(Centrala$Liczba)
sd(Centrala$Liczba) / mean(Centrala$Liczba) * 100
x <- c(0.9, 6.2, 2.1, 4.1, 7.3,
1.0, 4.6, 6.4, 3.8, 5.0,
2.7, 9.2, 5.9, 7.4, 3.0,
4.9, 8.2, 5.0, 1.2, 10.1,
12.2, 2.8, 5.9, 8.2, 0.5)
breaks_hist <- hist(x, plot = FALSE)
breaks_hist <- hist(x, plot = FALSE)
plot(breaks_hist)
breaks_hist <- hist(x, plot = FALSE)$breaks
plot(breaks_hist)
breaks_hist <- hist(x, plot = FALSE)$breaks
print(breaks_hist)
table(cut(x, breaks = breaks_hist))
cut(x, breaks = breaks_hist)
empiryczny <- data.frame(cbind(liczebnosc = table(cut(x, breaks = breaks_hist)),
procent = prop.table(table(cut(x, breaks = breaks_hist)))))
print(empiryczny)
histogram <- hist(x, plot = FALSE)
plot(histogram)
hist(x, plot = FALSE)
lines(density(x), col = "green", lwd = 2)
hist(x)
hist(x, col = "lightblue")
hist(x, col = "lightblue")
lines(density(x), col = "green", lwd = 2)
hist(x, col = "lightblue", probability = TRUE)
lines(density(x), col = "green", lwd = 2)
hist(x, col = "lightblue", probability = TRUE)
lines(density(x), col = "green", lwd = 1)
boxplot(x)
mean(x)
median(x)
sd(x)
sd(x) / mean(x) * 100
skewness(x)
e1071::skewness(x)
install.packages("e1071")
skewness(x)
library(e1071)
skewness(x)
kurtosis(x)
hist(x, col = "lightblue", probability = TRUE)
lines(density(x), col = "green", lwd = 2)
x <- c(1, NA, 3)
wspolczynnik_zmiennosci(x)
wspolczynnik_zmiennosci <- function(x, na.rm = FALSE) {
if (!is.numeric(x)) stop("argument nie jest liczbą")
if (na.rm) x <- na.omit(x)
return(100 * sd(x) / mean(x))
}
x <- c(1, NA, 3)
wspolczynnik_zmiennosci(x)
wspolczynnik_zmiennosci(x, na.rm = TRUE)
wspolczynnik_zmiennosci()
wspolczynnik_zmiennosci(c("x", "y"))