## load GGI signature
data(sig.ggi)
## load NKI dataset
data(nkis)
## compute relapse score
ggi.nkis <- ggi(data=data.nkis, annot=annot.nkis, do.mapping=TRUE,
hg=demo.nkis[ ,"grade"])
table(ggi.nkis$risk)
Run the code above in your browser using DataLab