Mapa Mimulus - LG12

Avaliação individual do grupo 12 formado a partir dos marcadores contidos neste arquivo. Para mais informações acesse a página principal.

1 Carregando dados gerados na pagina principal

load("LGs_force_HMM_Markers_First_Check.RData")
load("LGs_safe_HMM_Markers_First_Check.RData")


library(onemap)
data1 <- read_mapmaker(file = "data_with_head.raw")
LOD <- suggest_lod(data1)
rf2points <- rf_2pts(data1, LOD = LOD, max.rf = 0.5)

2 Breve comparação com o mapa publicado

Desde já podemos comparar os grupos formados com o mapa já publicado, para sabermos a correspondência entre ambos. Para facilitar, fizemos esta tabela com os nomes dos marcadores que compoem o mapa publicado, sendo que cada coluna da tabela corresponde à um grupo de ligação.

ref <- read.csv(file = "LG.csv", stringsAsFactors = FALSE)
names <- colnames(data1$geno)[LGs.HMM.force[[12]]$seq.num]

comp <- pos <- lgs <- pos2 <- num_lgs <- list()
for (i in 1:length(ref)){
  comp[[i]] <- ref[[i]] %in% names
  pos[[i]] <- which(comp[[i]] == TRUE)
  lgs[[i]] <- ref[[i]][pos[[i]]]
  pos2[[i]] <- names %in% lgs[[i]]
  num_lgs[[i]] <- LGs.HMM.force[[1]]$seq.num[pos2[[i]]]
}

comp

3 Comparando “safe” e “force”

Para este grupo foi verificada certa correspondência com o grupo de ligação 13 de Fishman et al.(2001).

# Identificando marcadores presentes no "force" e ausentes no "safe" de HMM
comp_unsafe <- LGs.HMM.force[[12]]$seq.num %in% LGs.HMM.safe[[12]]$seq.num
pos_unsafe <- which(comp_unsafe == FALSE)
unsafe <- LGs.HMM.force[[12]]$seq.num[pos_unsafe]
unsafe 

#O safe também não retirou nenhum dos marcadores. Dessa maneira, ele foi mantido desta maneira para análises posteriores.

#Fazendo o gráfico para este grupo analisado
LG12.ord.seq <- LGs.HMM.force[[12]]

rf_graph_table(LG12.ord.seq, scale = 2.2, main = paste("LG", 12, "- HMM"), inter = FALSE)

4 Removendo marcadores duvidosos

Conforme heatmap gerado pela cadeia de markov e as sugestões do comando “safe”, removemos alguns marcadores duvidosos do mapa na intenção de aprimorar o ordenamento.

A decisão tomada foi retirar apenas um dos marcadores que o compunham, identificado como 107 no heatmap. Embora o mapa utilizando o “safe” tenha retirado alguns outros marcadores, foi verificado que ocorreria uma redução do tamanho do grupo de ligação quando retirado apenas o marcador objetivado.

Temp <- c(107)

Exc <- LGs.HMM.force[[12]]$seq.num %in% Temp

pos <- which(Exc == TRUE)

LG12.Exc <- LGs.HMM.force[[12]]$seq.num[-pos]

length(LG12.Exc)

LG12 <- make_seq(rf2points, LG12.Exc)

LG12

LG12.ord <- order_seq(LG12, n.init = 5, THRES = 3,
                      touchdown = TRUE, draw.try = FALSE)


LG12.ord.seq <- make_seq(LG12.ord, "force")


rf_graph_table(LG12.ord.seq, scale = 2.2, main = paste("LG", 12, "- HMM"),
               inter = FALSE)

save(LG12.ord.seq, file = "LG12.Rdata")