library("oligoClasses")
setwd("E:\\R\\Rdirectory-Rbooks\\已下載資料資料GSE65626-GPL17586\\GSE65626_RAW\\glioma-normal-1")
library("oligo")
data.dir <- "E:\\R\\Rdirectory-Rbooks\\已下載資料資料GSE65626-GPL17586\\GSE65626_RAW\\glioma-normal-1"
(celfiles <- list.files(data.dir))
library("pd.hta.2.0")
data.raw <- read.celfiles("E:\\R\\Rdirectory-Rbooks\\已下載資料資料GSE65626-GPL17586\\GSE65626_RAW\\glioma-normal-1"= file.path(data.dir, celfiles))
treats <- strsplit("G G G N N N", " ")[[1]]
(snames <- paste(treats, 1:3, sep = ""))
sampleNames(data.raw) <- snames
pData(data.raw)$index <- treats
sampleNames(data.raw)
pData(data.raw)
data.eset <- rma(data.raw)
data.exprs <- exprs(data.eset)
str(data.exprs)
head(data.exprs)
> calls <- oligo::paCalls(data.raw)
Error in (function (classes, fdef, mtable) :
unable to find an inherited method for function ‘paCalls’ for signature ‘"HTAFeatureSet"’
xpa <- paCalls(data.raw)
Error in (function (classes, fdef, mtable) :
unable to find an inherited method for function ‘paCalls’ for signature ‘"HTAFeatureSet"’
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/44956.html
標籤：其他開發語言
上一篇：利用syms函式定義陣列
下一篇：Python求助