definitely not my code

A = matrix(nrow = 3, ncol = 3, data = c(1, 2, 3, -2, 3, 1, 4, 1, 3));
b = c(0,7,7);
solve(A,b);

lpmodel <- make.lp(0, 2);
lp.control(lpmodel, sense="max");
set.objfn(lpmodel, c(2, 3));
add.constraint(lpmodel, c(3, 3), "<=", 2100);
add.constraint(lpmodel, c(1, 2), "<=", 1000);
solve(lpmodel);
get.objective(lpmodel);
get.variables(lpmodel);

curve(5*cos(x),-10,10);
curve(x^2,add=TRUE,col="PURPLE");

set.seed(11);
n <- 100;
dat <- data.frame(
x <- rnorm(100),
e <- rnorm(100, 0, 0.7),
y <- ((3*x^2)+(6*x)-9 + e)
)
summary(y);
plot(x,y);
abline(lm(y~x));
dat <- data.frame(
x <- rnorm(100),
y <- (((3*x^2)+(6*x)-9)+rnorm(n=n,mean= 0, sd=0.5))
)
plot(x,y);
fit.loess = loess.smooth(x, y, span=.75, degree=1);
lines(fit.loess,col="PURPLE");



---
title: "sadfg"
output: html_document
---

#Nadpis1
*R* system je rozdeleny do **dvoch** konceptualnych casti:

1. R base system
+ CRAN
2. vsteko ostatne

---------------------------------------------------------------
##Nadpis2

vyhody | nevyhody | opensource | Nazov
------- | ------- | ------- | --------
kniznice | narocnejsi | yeap | r
kekmeister | paytowin | nope | matlab

###Nadpis3
```{r, echo=TRUE}
summary(cars)
```


```{r, eval = FALSE}
dim(cars)
```

Však dajte niečo užitočné. Nevidím, že by tu programovanie niekoho zaujímalo, okrem retroaktivistov typu fotóna, ktorý chce programovať 40 rokov starý mikroprocesor, pričom dnes sa to robí úplne inak (čo som videl, priamo v jazyku C).