细胞免疫浸润分析,提示mixture file有重复名字,但是这个文件好像是从cibersort下载的
rt=read.table(inputFile, header=T, sep="\t", check.names=F) #??ȡ?????ļ?
> rt=as.matrix(rt)
> row.names(rt)<-make.names(rt[,1],TRUE)
> rt<-rt[,-1]
> rownames(rt)=rt[,1]
> exp=rt[,2:ncol(rt)]
> dimnames=list(rownames(exp),colnames(exp))
> data=matrix(as.numeric(as.matrix(exp)),nrow=nrow(exp),dimnames=dimnames)
> out=rbind(ID=colnames(data),data)
> write.table(out,file="uniq.symbol.txt",sep="\t",quote=F,col.names=F)
> #????CIBERSORT???õ?????ϸ???????Ľ???
> source("Anoikis35.CIBERSORT.R")
> results=CIBERSORT("ref.txt", "uniq.symbol.txt", perm=1000)
Error in read.table(mixture_file, header = T, sep = "\t", row.names = 1, :
'row.names'里不能有重复的名字
> table(mixture_file)
Error in table(mixture_file) : object 'mixture_file' not found