# Definition of a bioDistclass Object
data(STATegRa_S1)
data(STATegRa_S2)
# Truncate data for brevity
Block1 <- Block1[1:100,]
Block2 <- Block2[1:100,]
## Create ExpressionSets
mRNA.ds <- createOmicsExpressionSet(Data=Block1,pData=ed,pDataDescr=c("classname"))
miRNA.ds <- createOmicsExpressionSet(Data=Block2,pData=ed,pDataDescr=c("classname"))
## Create the bioMap
map.gene.miRNA<-bioMap(name = "Symbol-miRNA",
metadata = list(type_v1="Gene",type_v2="miRNA",
source_database="targetscan.Hs.eg.db",
data_extraction="July2014"),
map=mapdata)
## Create bioDistclass Object
bioDistmiRNA<-bioDist(referenceFeatures = rownames(Block1),
reference = "Var1",
mapping = map.gene.miRNA,
surrogateData = miRNA.ds, ### miRNA data
referenceData = mRNA.ds, ### mRNA data
maxitems=2,
selectionRule="sd",
expfac=NULL,
aggregation = "sum",
distance = "spearman",
noMappingDist = 0,
filtering = NULL,
name = "mRNAbymiRNA")
Run the code above in your browser using DataLab