====== relative Fis per locus ======
  * file: bar_FisLocusRelative.r
  * document page: 4

\\
**code:**
<code>
read.table("D:/Heidi/Master/R_Daten/Fis/FisLocus_mic.txt", skip=16,
            row.names=1, fill=TRUE , nrows=4, na.strings= "N.A.")-> Data
  Data

#wandelt alle NA in 0 um:                                                                     
  for(i in 1:ncol(Data)) if(is.numeric(Data[,i])) Data[is.na(Data[,i]),
i] <- 0
    Data

nrow(Data) -> a
ncol(Data) -> b

Data2 <- as.matrix.data.frame(Data)

barplot(Data2, beside=TRUE, legend.text=TRUE, main="Population specific
        FIS indices per polxmorphic locus (relative values(%) compared
        to average FIS)", xlab="Populations", ylab="FIS",
        ylim=c(min(Data2),(max(Data2)+(max(Data2)/4))))
</code>