data(GBM)
observations <- SMAPObservations(value=as.numeric(GBM[,2]),
chromosome=as.character(GBM[,3]),
startPosition=as.numeric(GBM[,4]),
endPosition=as.numeric(GBM[,5]),
name="G24460",
reporterId=as.character(GBM[,1]))
plot(observations)
Run the code above in your browser using DataLab