analyz_frquence input type

it seems that `counts` argument only takes output of `colSums`. 

```R
f1 <- c(34, 0, 1)
```

gives allele frequences as NA

and 
```R
f1 <- list(
 red = 34,
 pink = 0,
 white = 1
)
```
gives error