# `r b@fcs.filename` #

## Bead Stats ##
```{r results='asis',echo=FALSE}
    print(xtable(data.frame(beads.data@clustering.stats[,'APC', 1:6])), type='html')
``` 

## Normalisation Formula ##
$log_{10}(MEF) = `r b@beta` \times log_{10}(`r b@gating.parameter`) + `r b@alpha`$

## Plot ##
```{r plot, echo=FALSE, fig.path=paste('figures', gsub('.FCS','',toupper(b@fcs.filename)), sep='/')}
    plot(b)
```

## Regression Summary ##
```{r results='asis',echo=FALSE}
    library(xtable)
    print( xtable(b@m), type='html' )
``` 

## Flow Cytometer Settings ##

```{r results='asis',echo=FALSE}
    library(xtable)
    print( xtable(t(data.frame(b@description)[1,])), type='html' )
```


