!jupyter-kernelspec list

!/swift/toolchain/usr/bin/swift --version
!python3 /swift/swift-jupyter/register.py

%load_ext rpy2.ipython 

## Ez csak egyszerkell futtatni (osztály betöltés) FIGYI : Load sorba nem lehet semmi más még megjegyzés sem

%%R                         ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
a <- 50                    ## változó beállitása
b <- -1                    ## változó beállitása
print(a+b)                 ## kiiratás
c <- 1:2
d <- 1:3
c(c,d) 
getwd()                    ## munka könyvtár listázása, lapaértelemzésban "/content"




%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
vilagegyenlet <- 42                  ## érték adás
vilagegyenlet <- round(3.1415) + 1   ## uj érték adás
print( factorial(vilagegyenlet) )    ## 24 (4 faktoriális)
rm(vilagegyenlet)                    ## objektum megszüntetése
#  print( vilagegyenlet   )          ## mivel már nincs meg az objektum hibát üzenne ezért megjegyzésbe tettem


##------------------------------Változó felül deffiniálás
pi          ## pi értéke : 3.141593 
pi <- 1     ## pi érték felüldeffiniálása pl 1-el   
print(pi)   ## pi változó értéke 1
rm(pi) 
print(pi)   ## pi érték visszaál az eredeti változó érték szerint 3.141593

## ---------------------------- Vectorok
vec <- c(1, 2, 3, 10, 100) 
vec                         ## 1   2   3  10 100

## ----------------------------mátrixok [ két dimenzios tomb]
# --- elemek 3x2 mátrixba töltése
mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 2) 
print(mat )

#--- elemek  2x3 mátrixba töltése
mat <- matrix(c(1, 2, 3, 4, 5, 6), nrow = 3) 
print(mat )

## --transzláció (sor és oszlop felcserlése)
print(t(mat) )

%%R           ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
vec <- c(1, 2, 3, 10, 100)   ## a vektor mindig csak azonos tipusu objektumokból állhat
print(vec + 4)
## -----
print(vec * 4)
## -----
print(vec * vec)
## -----
print(vec %*% vec)  ##  # inner 
## -----
print(vec %o% vec)  ##  # outer 


%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
##  ----- három és több dimenziós tőmbök használata

array(c(1, 2, 3, 4, 5, 6), dim = c(2, 2, 3))




%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon

print(class(0.00001) )
## --
print(class("hello") )

## --------  Szöveg műveletek
print(nchar("hello"))      # 5 
paste("hello", "world")    # "hello world"

## --------- faktorok
fac <- factor(c("a", "b", "c")) 
print(fac) 

## ------ listák
lst <- list(1, "R", TRUE) 
print(class(lst) )          ## a listák különböző tipusu elemekből is álhatnak
print (lst)

## ---- összetett lista
list(c(1, 2), TRUE, c("a", "b", "c"))

## ------ dataframe jellemzője, hogy mezőnként azonos tilusunak kellenie
df <- data.frame(c(1, 2, 3),   c("R","S","T"), c(TRUE, FALSE, TRUE)) 
class(df)



%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
# install.packages("ggplot2")        ## Csak egyszerkell 
#library(ggplot2) 

#mpg 

#View(mpg) 

#qplot(displ, hwy, data = mpg)

plot(iris$Sepal.Width, iris$Sepal.Length)

# qplot(displ, hwy, data = mpg, color = class)

# qplot(displ, hwy, data = mpg) + facet_grid(. ~ cyl) 

#qplot(displ, hwy, data = mpg) + facet_grid(drv ~ .) 

#qplot(displ, hwy, data = mpg) + facet_grid(drv ~ cyl) 

#qplot(displ, hwy, data = mpg) + facet_wrap(~ class)

%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon

##   !apt-get -qq install -y libfluidsynth1   ## csak egyszerkell installálást futtatni
##  installed.packages()   ## az eddig installált csomagok listája
## install.packages("dplyr")


x <- seq(0, 2*pi, length.out=50)
plot(x, sin(x))






%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon

raw <- read.csv("data/pew.csv", check.names = F)
library(reshape2) 
tidy <- melt(raw, id = "religion")  
head(tidy)


tidy2 <- readRDS("tidy.rds")


tidy3 <- read.csv("tidy.csv.bz2") 




%%R                                  ## FIGYI:  ez mindig kell ez mondja meg a colab-nak, hogy 'R' parancsértelmezőt használjon
getwd() 
write.csv(tidy, file = "tidy.csv",    row.names = FALSE) 

saveRDS(tidy, "tidy.rds")  ## rövid hivatkozás

write.csv(tidy, file = bzfile("tidy.csv.bz2"), 
  row.names = FALSE)  ## tömöritett állományba mentés