install.packages("openxlsx")
install.packages("moments")
install.packages("readxl")
install.packages("dplyr")
install.packages("epiR")
install.packages("lsr")
install.packages("car")
install.packages("EnvStats")

library(openxlsx)
library(moments)
library(readxl)
library(dplyr)
library(epiR)
library(lsr)
library(car)
library(EnvStats)





x=c(0,750,1500)
y=c(0,0.03,0.34,0.64)


F=cumsum(y)
F

x=seq(0,12,0.1)
y=dexp(x,0.25)
y


b=boxplot(zkouska10)
b


data=zkouska10

data$ChybyMereni[data$ChybyMereni %in% b$out]=NA
data=table(na.omit(data$ChybyMereni))
d


t.test(data$ChybyMereni)
f