---
title: "aweSOM report"
output: html_document
params:
  code: NA
  ok.data: NA
---

```{r}
library(aweSOM) # version 1.3
```

Import the data
```{r, echo=FALSE}
import.data <- params$ok.data
```

```{r, code=params$code$codetxt$dataread, eval=FALSE}
```

Prepare training data
```{r, code=params$code$codetxt$traindat}
```

Train SOM
```{r, code=params$code$codetxt$train}
```

```{r, code=params$code$codetxt$sc}
```

Quality measures
```{r, echo=FALSE}
map_trained <- ifelse(!is.null(the.som), TRUE, FALSE)
```

```{r, code="somQuality(the.som, train.data)", eval=map_trained}
```

Visualize 
```{r, code=params$code$codetxt$plot}
```

