# 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']
})
# }
Run the code above in your browser using DataLab