library(rms)
library(mlbench)
data(PimaIndiansDiabetes)
# Recode diabetes as 0/1
PimaIndiansDiabetes$diabetes <- ifelse(PimaIndiansDiabetes$diabetes=="pos" , 1 , 0)
myformula <- glucose ~ mass + diabetes * rcs(age, 4)
model <- glm(myformula , data = PimaIndiansDiabetes , family="gaussian")
# Show the effect on glucose of being diabetic at age 20 to 80
rcsLIN( var2values = 20:80
, model = model , data = PimaIndiansDiabetes , var1 ="diabetes", var2="age"
, ci=TRUE , conf = 0.95 , ci.method = "delta")
Run the code above in your browser using DataLab