############## Podstawy R ########################
#Podstawowe operacje arytmetyczne
1+2
1/2
log(1)
log(exp(1))
sin(pi/2)
factorial(4)#silnia

##################################################
#Pomoc
help.start()#uruchamiamy system pomocy online
help.search("integral")#szukamy haseł związanych z całkowaniem, szukamy metod całkowania numerycznego
?integrate #więcej szczegółów

##################################################
#Podstawowe operacje na wektorach
x=c(1,2,3,4)#definicja wektora
x
x<-c(2,4,5)#lub alternatywnie
x
y=1:4#lista/wektor od 1,2,3,4
y
y=seq(1,3)#lub alternatywnie
y
y+2	#dodawanie po wspołrzędnych
(y+1)/100	#operacje na współrzędnych
y^2
x+y
3*(x-y)+x*y
x=c(1,-2,3,-4)
x[2]	#dostęp do współrzędnych wektora
x[c(1,3)] #pierwsza i 3. współrzędna
x>0	#sprawdzenie po współrzędnych warunku logicznego
x[x>0]#wyświetla elementy spełniające warunek x>0

seq(-1,3,by=.2)#ciąg kolejnych liczb od -1 do 2 z krokiem 0.2
rep(c(1,3),5)#Ciag o powtarzajacych się (tutaj 5razy) elementach 

#Na wektorach mozna wykonywac działania lub podstawowe funkcje, np.:
x<-c(2,4,5); y<-c(1,3,2)
x+y; x*y+2

notowania=c(10,11,9,6,8)
notowania
names(notowania)=c("PN","WT","SR","CZW","PT")#wprowadzamy nazwy zmiennych
notowania
notowania["PN"]#wywołanie przez nazwę

w=c(1,2,1,3,1,2,4,3,2); w
wfact=factor(w); wfact#tablica częstośći
summary(wfact)
plot(wfact)
table(w)#porównajmy wyniki z factor

##################################################
#Podstawowe statystyki
help(sum)# stosujemy, gdy znamy nazwę funkcji. Jest równoważny ?sum
sum(y)#sumuje elementy wektora y

length(y) #wymiar wektora
mean(y) #średnia
? mean #sprawdzamy czy chodzi o średnią arytmetyczną
var(y) #wariancja
sd(y) #odchylenie standardowe
median(y)
table(y)# to tablica częstotliwości występowania wartości wektora y
zakres=max(y)-min(y);zakres	#zakres wartości
IQR(y) #rozstęp między kwartylowy
summary(y)#podstawowe statystyki opisowe

##################################################
#Podstawowe operacje na macierzach
m<-matrix(c(1,2,3, 11,12,13))
m
dim(m)#sprawdza wymiar macierzy
m <- matrix(c(1,2,3,4,5,6), nrow = 2, ncol=3, byrow=TRUE,
               dimnames = list(c("w1", "w2"),
                               c("c1", "c2", "c3")))#byrow-by row
m
m <- matrix(c(1,2,3,4,5,6), nrow = 2, ncol=3, byrow=FALSE,
               dimnames = list(c("w1", "w2"),
                               c("c1", "c2", "c3")));m#byrow-by row
crossprod(m)#c1*c1,c1*c2 itd
sum(m)	#suma wszystkich elementów macierzy
sum(m[,2])	#suma elementów z 2. kolumny
m[2,3] #element macierzy z 2.wiersza i 3. kolumny
100+m	#dodawanie po współrzędnych

w=c(1:10);w
dim(w)=c(5,2);w#tworzymy tablicę
nw=cbind(w,100);nw#dokładam kolejną kolumnę o elementach100
nw=rbind(nw,-12);nw#dokładam kolejny wiersz o elementach -12