---
title: "R Notebook"
output: html_notebook
---

This is an [R Markdown](http://rmarkdown.rstudio.com) Notebook. When you execute code within the notebook, the results appear beneath the code. 

Try executing this chunk by clicking the *Run* button within the chunk or by placing your cursor inside it and pressing *Ctrl+Shift+Enter*. 

```{r}
plot(cars)
```

Add a new chunk by clicking the *Insert Chunk* button on the toolbar or by pressing *Ctrl+Alt+I*.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the *Preview* button or press *Ctrl+Shift+K* to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike *Knit*, *Preview* does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.
```{r}

5 / 2   #2.5
5 %/% 2 #2
5 %% 2  #1

c(0,1,2,3,4,5,6,7,8,9) >=5
5 <= c(0,1,2,3,4,5,6,7,8,9)
c(9,8,7,6,5,4,3,2,1,0) <= c(0,1,2,3,4,5,6,7,8,9)

FALSE == 0

c(TRUE,TRUE,FALSE,FALSE) && c(TRUE,FALSE,TRUE,FALSE)
c(TRUE,TRUE,FALSE,FALSE) | c(TRUE,FALSE,TRUE,FALSE)
!c(TRUE,FALSE)


c(TRUE,TRUE,FALSE,FALSE) && c(FALSE,FALSE,TRUE,FALSE)

l <- list(1, 1.0, "jeden")
str(l[1])
str(l[[1]])
```