You can also do it with t.test() function from base R.
Also when you share sample data please do it using a copy/paste friendly format like in the example below.
df <- data.frame(stringsAsFactors=FALSE,
status = c("low", "low", "low", "low", "ok", "ok"),
znadj = c(59.4, 59.1, 50, 55.8, 99.4, 68.8),
time_blood_draw = c(1, 1, 1, 2, 1, 2),
fast = c(0, 0, 0, 0, 0, 0),
inflst = c("norm", "earl", "norm", "earl", "incu", "norm"),
Fer = c(124, 169, 43.1, 250, 224, 200),
sTfR = c(4.83, 5.26, 8.47, 5.19, 5.78, 3.61),
RBP = c(1.45, 1.36, 2.01, 0.9, 2.37, 1.69),
CRP = c(4.97, 19.2, 1.19, 13.3, 5.03, 0.84)
)
t.test(df$znadj)$conf.int
#> [1] 46.80542 84.02792
#> attr(,"conf.level")
#> [1] 0.95