ZAJĘCIA 9

####ZAJECIA 9
###Przetwarzanie tekstu

tekst <- "Przetwarzanie danych w R"

as.integer( charToRaw( tekst ) )

rawToChar( as.raw( 1:127 ), multiple = T )

substr( tekst , 1, 13)

strsplit( tekst, " ")

sub( "w", "_w_", tekst)
gsub( "w", "_w_", tekst)

gregexpr( "w", tekst )
wyrazenie <- c("a","ab","accb","acccb","accccb")
grep( "a" , wyrazenie, value = T)
#kwantyfikatory
# * - konkretny znak może pokazać się co najmniej 0 razy
grep( "ac*b" , wyrazenie, value = T)
# + - co najmniej 1 raz
grep( "ac+b" , wyrazenie, value = T)
# ? - co najwyżej 1 raz
grep( "ac?b" , wyrazenie, value = T)
# {n,m} - co najmniej n razy ale nie więcej niż m
grep( "ac{2,3}b" , wyrazenie, value = T)

wyrazenie <- c("abcd","cdab","cadb","c abd")
# ^ - voznacza poczatek tekstu
grep( "ab" , wyrazenie, value = T)
grep( "^ab" , wyrazenie, value = T)

# $ - voznacza koniec tekstu
grep( "ab$" , wyrazenie, value = T)

  #klasy znaków specjalnych
# [:digit:] - cyfry
# [:lower:] -małe litery
# [:upper:] - wielkie litery
# [:punct:] - znaki interpunkcyjne
# [:blank:] - białe znaki

# [] - definicja znaków które mogą pojawić się w danym momencie
# [^] - definicja znaków które nie mogą pojawić sie w danym momencie

wyrazenie <- c("^ab","ab","abc","abd","abe","ab 100")

grep( "ab[cde]", wyrazenie, value = T)
grep( "ab[^c]", wyrazenie, value = T)
grep( "[[:digit:]]", wyrazenie, value = T)
grep( "^a", wyrazenie, value = T)


ZADANIA

Zadanie_1:
  a) Stworz macierz rozmiaru "10X10" z wartosciami losowymi z rozkladu rownomiernego.
b) Stworz funkcje "Funkcja" ktora zwracac bedzie do obiektu "wynik_1" wartosc srednia dla kazdej kolumny macierzy wejsciowej.
c) Stworz "Funkcja_env" ktora bedzie "srodowiskowa" wersja powyzszej funkcji.
Powinna ona nie zwracac zadnego obiektu, lecz umieszczac wynikowy obiekt w srodowisku, ktore bedzie obiektem wejsciowym dla funkcji.

Zadanie_2:
  a) Stworz wektor x zawierajacy wszystkie znaki odpowiadajace wartosciom liczbowym z zakresu 1:128.
b) Wyswietl wszystkie znaki z wektora x, ktore odpowiadaja liczbom lub literom malym lub wielkim.
c) Wyswietl wszystkie znaki z wektora x, ktore odpowiadaja liczbom lub znakom oddzielajacym tekst tj. spacja, tabulator etc.
b) Wyswietl wszystkie znaki z wektora x, ktore nie odpowiadaja liczbom.

Zadanie_3:
  a) Stworz wektor y zawierajacy nastepujšce imiona: ("Jacek", "Kasia", "Małgosia","Elżbieta","joasia").
b) Stworz wyrazenie regularne, ktore spowoduje wybranie tylko imion: "Kasia","joasia".
c) Stworz wyrazenie regularne, ktore spowoduje wybranie tylko imion: "Jacek", "Kasia".

##Zadanie_1
#a)
x <- runif(n=100)
y <- matrix(data = x, nrow = 10, ncol = 10)
x <- matrix(data = runif(n=100), 10, 10)
#b)

  z<- vector(mode = "numeric", length = 10)
    Funkcja <- function(){
    for (i in 1:10) {
      z[i] <- mean(y[i,])
    }
    rbind(y, z)
    }
  Funkcja()


##Zadanie_2:
#a)
x <- rawToChar(as.raw(1:128), T)
#b)
grep("[[:digit:][:upper:][:lower:]]", x, value = T)
#c)
grep("[[:digit:][:blank:]]",x)
#d)
grep("[^[:digit:]]", x, value = T)


##Zadanie_3:
#a)
y <- c("Jacek", "Kasia", "Malgosia", "Elzbieta", "joasia")
#b)
grep("^[K,j]", y, value = T)
#c)
grep("^[K,J]", y, value = T)