Statystyka/zajecia6/.Rhistory

105 lines
3.1 KiB
R
Raw Normal View History

2021-05-06 11:41:27 +02:00
x <- c(862, 870, 876, 866, 871, 865, 861, 873, 871, 872)
shapiro.test(x)$p.value
qqnorm(x)
qqline(x)
mean(x)
t.test(x, mu = 870, alternative = "less")$p.value
x <- c(78.2, 78.5, 75.6, 78.5, 78.5, 77.4, 76.6)
y <- c(76.1, 75.2, 75.8, 77.3, 77.3, 77.0, 74.4, 76.2, 73.5, 77.4)
boxplot(x, y)
shapiro.test(x)$p.value
qqnorm(x)
qqline(x)
shapiro.test(y)$p.value
qqnorm(y)
qqline(y)
var(x)
var(y)
var.test(x, y, alternative = "less")$p.value
mean(x)
mean(y)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
x <- c(78.2, 78.5, 75.6, 78.5, 78.5, 77.4, 76.6)
y <- c(76.1, 75.2, 75.8, 77.3, 77.3, 77.0, 74.4, 76.2, 73.5, 77.4)
boxplot(x, y)
mean(x)
mean(y)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
x <- c(88.2, 88.5, 85.6, 88.5, 88.5, 87.4, 86.6)
y <- c(76.1, 75.2, 75.8, 77.3, 77.3, 77.0, 74.4, 76.2, 73.5, 77.4)
boxplot(x, y)
mean(x)
mean(y)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
shapiro.test(x)$p.value
shapiro.test(y)$p.value
var(x)
var(y)
var.test(x, y, alternative = "less")$p.value
x <- c(78.2, 78.5, 75.6, 78.5, 78.5, 77.4, 76.6)
y <- c(76.1, 75.2, 75.8, 77.3, 77.3, 77.0, 74.4, 76.2, 73.5, 77.4)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
x <- c(78.2, 78.5, 75.6, 78.5, 78.5, 77.4, 76.6)
y <- c(86.1, 85.2, 85.8, 87.3, 87.3, 87.0, 84.4, 86.2, 83.5, 87.4)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
x <- c(78.2, 78.5, 75.6, 78.5, 78.5, 77.4, 76.6)
y <- c(76.1, 75.2, 75.8, 77.3, 77.3, 77.0, 74.4, 76.2, 73.5, 77.4)
t.test(x, y, var.equal = TRUE, alternative = 'greater')$p.value
x <- c(84, 87, 87, 90, 90, 90, 90, 93, 93, 96)
y <- c(89, 92, 98, 95, 95, 92, 95, 92, 98, 101)
boxplot(x, y)
shapiro.test(x)$p.value
qqnorm(x)
qqline(x)
shapiro.test(y)$p.value
qqnorm(y)
qqline(y)
mean(x)
mean(y)
t.test(x, y, paired = TRUE, alternative = 'less')$p.value
x <- c(171, 176, 179, 189, 176, 182, 173, 179, 184, 186, 189, 167, 177)
y <- c(161, 162, 163, 162, 166, 164, 168, 165, 168, 157, 161, 172)
boxplot(x, y)
shapiro.test(x)$p.value
qqnorm(x)
qqline(x)
shapiro.test(y)$p.value
qqnorm(y)
qqline(y)
var(x)
var(y)
var.test(x, y, alternative = "greater")$p.value
mean(x)
mean(y)
t.test(x, y, alternative = 'greater')$p.value
w_test <- function(x, lambda_zero, alternative = c('two.sided', 'less', 'greater')) {
statistic <- 2 * length(x) * lambda_zero * mean(x)
d <- 2 * length(x)
alternative <- match.arg(alternative)
p_value <- pchisq(statistic, d)
p_value <- switch(alternative,
'two.sided' = 2 * min(p_value, 1 - p_value),
'greater' = p_value,
'less' = 1 - p_value)
names(statistic) <- 'T'
names(d) <- 'num df'
result <- list(statistic = statistic,
parameter = d,
p.value = p_value,
alternative = alternative,
method = 'Test chi-kwadrat w modelu wyk<79>adniczym',
data.name = deparse(substitute(x)))
class(result) <- 'htest'
return(result)
}
awarie <- read.table("http://ls.home.amu.edu.pl/data_sets/awarie.txt")
View(awarie)
1 / mean(awarie$V1)
w_test(awarie$V1, 0.001, 'less')
x <- c(171, 176, 179, 189, 176, 182, 173, 179, 184, 186, 189, 167, 177)
y <- c(161, 162, 163, 162, 166, 164, 168, 165, 168, 157, 161, 172)
boxplot(x, y)
shapiro.test(x)$p.value
qqnorm(x)
qqline(x)