## -----------------------------------------------------------------------------
library(baseverse)

## -----------------------------------------------------------------------------
data(nhanes)

## -----------------------------------------------------------------------------
nhanes |> p_table(dmdborn4)

## -----------------------------------------------------------------------------
nhanes<-nhanes |> transform(
  country=base_match(dmdborn4,'USA'=1,'Other'=2)
)

## -----------------------------------------------------------------------------
nhanes |> p_table(country)

## -----------------------------------------------------------------------------
nhanes |> et(country)

## -----------------------------------------------------------------------------
nhanes$lbxtc |> summary()

## -----------------------------------------------------------------------------
nhanes |> dollar(lbxtc) |> summary()

## -----------------------------------------------------------------------------
nhanes<-nhanes |>
  transform(
    cholesterol=base_when(
      'Desirable' = (lbxtc<200),
      'Borderline high' = (lbxtc>=200)&(lbxtc<240),
      'High' = (lbxtc>=240)
    )
  )

## -----------------------------------------------------------------------------
nhanes |> p_table(cholesterol)

## -----------------------------------------------------------------------------
nhanes |> et(cholesterol)

## -----------------------------------------------------------------------------
model_1<-nhanes |> 
  p_lm(bpxosy1~ridageyr+country+lbxtc) 

## -----------------------------------------------------------------------------
model_1 |>
  summary()

## -----------------------------------------------------------------------------
model_1 |>
  confint()