Commit 27e18dc1 authored by svolant's avatar svolant
Browse files

Correction bug - et creation contrastes

parent c940acf4
......@@ -930,8 +930,8 @@ CheckCountsTable <- function(counts)
namesfor2.1 = paste(Sel_Var_For,F1,".",Sel_Var,M2,sep="")
ind1.for = which(names%in%c(namesfor1,namesfor1.1))
ind2.for = which(names%in%c(namesfor2,namesfor2.1))
if(length(ind1.for)>0) v_tmp[ind1] = 1
if(length(ind2.for)>0) v_tmp[ind2] = -1
if(length(ind1.for)>0) v_tmp[ind1.for] = 1
if(length(ind2.for)>0) v_tmp[ind2.for] = -1
nameContrast = paste(nameContrast,"_for_",F1,sep="")
}
......
......@@ -410,6 +410,10 @@ shinyServer(function(input, output,session) {
data = read.csv(inFile$datapath,sep="\t",header=TRUE)
rownames(data) <- as.character(data[, 1])
ind = which(rownames(data)%in%colnames(counts))
target = data[ind,]
## Replace "-" by "."
target = as.data.frame(apply(target,2,gsub,pattern = "-",replacement = "."))
#ord = order(rownames(data))
#data = data[ord,]
### A SUPPRIMER
......@@ -421,7 +425,7 @@ shinyServer(function(input, output,session) {
# print(rownames(data))
labeled = length(ind)/length(colnames(counts))*100.0
return(list(target=data[ind,], labeled=labeled))
return(list(target = target, labeled=labeled))
})
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment