relative_fis_per_locus
relative Fis per locus
- file: bar_FisLocusRelative.r
- document page: 4
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))))
relative_fis_per_locus.txt · Last modified: 2008/07/22 13:31 by 127.0.0.1