## Not run:
# out <- cs_prop(5363)
# out[[1]]$epi
#
# out2 <- cs_prop(c(5363, 2157))
# # extract Log Octanol-Water Partition Coef from EPI
# sapply(out2, function(y){
# y$epi$value_pred[y$epi$prop == 'Log Octanol-Water Partition Coef']
# })
# ## End(Not run)
Run the code above in your browser using DataLab