rm(list = ls())


###for "clinicopathological characteristics of the 150 KIRC patients.txt"
dev<-read.table("clinicopathological characteristics of the 150 KIRC patients.txt",header=T,sep="\t",check.names=F,row.names=1)

head(dev)
str(dev)

dev$fustat = as.factor(dev$fustat)
dev$Gender = as.factor(dev$Gender)
dev$Grade = as.factor(dev$Grade)
dev$Stage = as.factor(dev$Stage)
dev$PPA2 = as.factor(dev$PPA2)

str(dev)


###for "PPA2 expression-chip.txt"
expre<-read.table("PPA2 expression-chip.txt",header=T,sep="\t",check.names=F,row.names=1)

head(expre)
str(expre)

expre$PPA2 = as.factor(expre$PPA2)

str(expre)


###"PPA2 expression-Meizhou People's Hospital.txt"
expmz<-read.table("PPA2 expression-Meizhou People's Hospital.txt",header=T,sep="\t",check.names=F)

head(expmz)
str(expmz)

expmz$PPA2 = as.factor(expmz$PPA2)

str(expmz)