# NOT RUN {
data(engram_5k)
data(qsprpred_EG_5k)
smchem <- SmcChem$new(smis = rep("c1ccccc1O", 25), v_qsprpred=qsprpred_EG_5k,
v_engram=engram_5k,temp=3)
smcexec(smchem,10)
res <- get_hiscores(smchem, exsim=0.8)
viewstr(res[1:4, 1])
# }
Run the code above in your browser using DataLab