----

## <a name="pmi"></a> PMI

### <a name="pmi_checks"></a> PMI Checks

**Download**: [`r file_pmi_checks`.gz](../`r file_pmi_checks`.gz)

```{r git_pmi}
data <- read.csv(file=file_pmi_checks, header=T)
```

File is [``r file_pmi_checks``](../`r file_pmi_checks`.gz), and has ``r ncol(data)`` columns for ``r nrow(data)`` commits.

```{r pmi_checks_table, results='asis'}
checks.table <- head(data[,c('Description', 'Value', 'Results')], 10)

print(
    xtable(checks.table,
        caption = paste('Extract of the 10 first PMI checks for ', 
                        project_id, '.', sep=" "),
        digits=0, align="llll"), type="html",
    html.table.attributes='class="table table-striped"',
    caption.placement='bottom',
    include.rownames=FALSE,
    sanitize.text.function=function(x) { x }
)
```