R语言rms包中lrm二项逻辑拟合模型计算OR值

Question

我在复现文章数据的时候，模型已经建好了，但是不知道怎么输出模型的参数，下面是模型的代码和图片：

model<-lrm(hyperuricemia~rcs(exposure,4)+age+income+gender+maritalStatus+education+smoking+drinking+location,
             data=data,x=TRUE,y=TRUE)

请教一下大家怎么根据model的输出结果计算OR、CI区间和p值？