{
bgee <- Bgee$new(species = "Mus_musculus", datatype = "rna_seq")
annotation_bgee_mouse <- bgee$get_annotation()
data_bgee_mouse <- bgee$get_data()
data_bgee_mouse_gse30617 <- bgee$get_data(experiment.id = "GSE30617")
gene.expression.mouse.rpkm <- bgee$format_data(data_bgee_mouse_gse30617,
calltype = "expressed", stats = "rpkm")
}
Run the code above in your browser using DataLab