search for: celllin

Displaying 4 results from an estimated 4 matches for "celllin".

Did you mean: cellline
2013 Jan 03
1
two lines in axis title combined with 'substitute' command
...f my plot in 2 lines, centered: experiment 1: log2(Ratio H/L) I know that in principle that works with '\n'. However, I am also using the 'substitute' command for my axis title. However, it does not make a new line. What I have so far: logbase <- 2 test <- "bait" cellline <- "cellline" plot( log(filteredproteins[["Ratio.H.L.normalized.UW21_FW"]],base=logbase), -log(filteredproteins[["Ratio.H.L.normalized.UW21_REV"]],base=logbase), main= substitute("bait = "* bait *" in "*cellline, list(bait=bait, cellline=cellli...
2009 Oct 23
1
data.frame tall skinny transformation
...re1 5637 -0.568750616 feature2 5637 -0.913080902 feature3 5637 0.442477294 feature1 1321N1 -0.934748758 feature2 1321N1 -0.941455172 feature3 1321N1 -0.257921866 I have tried to do it with for loops but it is very slow. # Make Feature data tall skinny tsFeatures = c() tsCellLines = c() tsValues = c() for(aFeature in as.character(featureData$feature)){ print(aFeature) for(cellLine in cellLines){ tsCellLines = c(tsCellLines, as.character(cellLine)) tsValues = c(tsValues, as.numeric(subset(featureData, feature == aFeature, select = c(whic...
2008 Feb 27
2
problem with creation of eSet
...ciate any help on the following problem. I am trying to create an eSet using the following code pd <- read.table(file="pdata.txt",header =TRUE,row.names=1); colnames(pd) <- c("type","tumor","time","id"); pdN <- list(type = "Cellline/xenograft",tumor="primary,secondary,cellline",time = "0hr,1hr,2hr,4hr", id = "1,2,3,4,5,6,7,8,9") # Initialize exprSet object pD <- new("phenoData", pData=pd, varLabels=pdN); # This is my eSet!!! metastasis.eset <- new("exprSet", exp...
2020 Sep 24
1
How to use `[` without evaluating the arguments.
...cGenerics subset #' @import data.table #' @export subset.long.table <- function(x, rowQuery, columnQuery, assays) { longTable <- x rm(x) if (!missing(rowQuery)) { if (tryCatch(is.character(rowQuery), error=function(e) FALSE)) { select <- grep('^cellLine[:digit:]*', colnames(rowData(longTable)), value=TRUE) rowQueryString <- paste0(paste0(select, ' %in% ', .variableToCodeString(rowQuery)), collapse=' | ') rowQuery <- str2lang(rowQueryString) } else { rowQuery <- substitute(ro...