#Zadanie_1:
#a) Wysymuluj z powtorzeniami 10 liczb z wektora od 1 do 10 (seed = 666)
set.seed(666)
x <- sample(x = 1:10, size = 10, replace = T)
#b) Przeksztalc wektor z punktu a) na 10-elementowa liste.
dane <- as.list(x)
#c) Dla kazdego elementu listy wysumuluj "n" liczb z rozkladu rownomiernego (seed = 666), gdzie "n" jest liczba obecnie znajdujaca sie w elemencie listy. Nie uzywaj petli.
set.seed(666)
dane <- lapply(dane, FUN = runif)
#d) Dokonaj zlaczenia elementow listy w jeden wektor.
vec<-unlist(dane)

# Zadanie_2:
# a) Stworz funkcje wskazujaca obserwacje odstajace z podanego wektora liczb rzeczywistych (x <-rcauchy(10)) wykorzystujaca regule kwartylow: Q1-1.5*(Q3-Q1) Q1+1.5*(Q3-Q1).
# b) Funkcja powinna zwracac obiekt z podanymi atrybutami zawierajacymi informacje:
#   a. jakie wartosci sa odstaj?ce
#   b. jakie wartosci sa nieodstaj?ce
#   c. indeksy wartosci odstaj?cych
#   d. indeksy wartosci nieodstaj?cych
# c) (wykorzystaj funkcje quantile, which, attr).
#
# Zadanie_3:
# a) Stworz dwa wektory np. Nie_odstajace oraz Odstajace, ktore beda przechowywac wynik zwracane przez funkcje stworzona w poprzednim kroku.