#Zad1
statystyki=function(x) {
n=length(x)
średnia=mean(x)
odchylenieStand=sd(x)
min=min(x)
max=max(x)
kurtoza=e1071::kurtosis(x)
skośność=e1071::skewness(x)
cat("Średnia:",średnia,"\n")
cat("Odchylenie standardowe:",odchylenieStand,"\n")
cat("Minimum:",min,"\n")
cat("Maksimum:",max,"\n")
cat("Kurtoza:",kurtoza,"\n")
cat("Skośność:",skośność,"\n")}
x=c(2,3,4,5,1,2,2,2,2)
statystyki(x) #czym sie roznia funkcje return od cat???
x=c(rnorm(100,mean=0,sd=1))
y=c(rnorm(100,mean=0,sd=1))
statystyki(x)
statystyki(y)
statystyki(x+y)
statystyki(x-y)
statystyki(sort(x)+sort(y))
statystyki(sort(x)-sort(y)) #nierosnaca dodajemy w sort za przecinkiem slowo TRUE

#Zad2
średnia_p=function(x,p)
{sum=0
n=length(x)
for(i in 1:n) {
sum=sum+((x[i])^p)}
cat("średnia rzędu",p,"wynosi:", (sum/n)^(1/p),"\n")}
x=c(2,3,4,5,1,2,2,2,2)
średnia_p(x,7)
średnia_p(runif(1500,1,10),1) #średnia arytmetyczna
średnia_p(runif(1500,1,10),-1) #średnia harmoniczna (potęgowa rzędu -1)
średnia_p(runif(1500,1,10),2) #średnia kwadratowa (potęgowa rzędu 2)
y=c(runif(1500,1,10))
cat("średnia geometryczna wynosi:",prod(y^(1/length(y))))

#Zad3
formula=read.csv2("Formula1.csv",header=F)
statystyki(formula)
z=c(formula$V1)