# NOT RUN {
x<-imcExperiment(cellIntensity=matrix(1,nrow=10,ncol=10),
coordinates=matrix(1,nrow=10,ncol=2),
neighborHood=matrix(1,nrow=10,ncol=10),
network=data.frame(matrix(1,nrow=10,ncol=10)),
distance=matrix(1,nrow=10,ncol=10),
morphology=matrix(1,nrow=10,ncol=10),
uniqueLabel=paste0("A",seq_len(10)),
panel=letters[1:10],
ROIID=data.frame(ROIID=rep("A",10)))
data(imcdata)
getNetwork(imcdata)
data(imcdata)
getNetwork(imcdata)
data(imcdata)
x<-data.frame(ID=seq_len(ncol(imcdata)))
getNetwork(imcdata)<-x
data(imcdata)
getDistance(imcdata)
data(imcdata)
getDistance(imcdata)
data(imcdata)
newD<-matrix(1,nrow=ncol(imcdata),ncol=1)
getDistance(imcdata)<-newD
data(imcdata)
getMorphology(imcdata)
data(imcdata)
getMorphology(imcdata)
data(imcdata)
x<-matrix(1,nrow=ncol(imcdata),ncol=4)
getMorphology(imcdata)<-x
data(imcdata)
getLabel(imcdata)
data(imcdata)
getLabel(imcdata)
# }
Run the code above in your browser using DataLab