Displaying 4 results from an estimated 4 matches for "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=celllin...
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(which...
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", expr...
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(row...