`install.packages`("stargazer")
library(stargazer)

stargazer(HD, 
      type = 'text',` min.max=F` , mean.sd = T,
      nobs = F, median = F, `iqr` = F,
      digits=1, align=T,
      title = "Descriptive Statistics")

Descriptive Statistics

Statistic Mean St. Dev.

AGE 62.7 8.2
WEIGHT 81.6 15.7

######### Absolute and relative frequencies and cumulative frequencies

install.packages("tidycomm")
library(tidycomm)



install.packages("tibble")
library(tibble)


HDCat=as_tibble(HD1)

HDCat

A tibble: 309 × 7

GENDER AGE WEIGHT SMOKING ANXIETY PEER_PRESSURE

1 Male 69 57 No Yes No
2 Male 74 103 Yes No No
3 Female 59 92 No No Yes
4 Male 63 58 Yes Yes No
5 Female 63 97 No No No
6 Female 75 107 No No No
7 Male 52 57 Yes No No
8 Female 51 101 Yes Yes Yes
9 Female 68 57 Yes Yes No
10 Male 53 83 Yes Yes Yes
# ℹ 299 more rows

ℹ 1 more variable: LUNG_CANCER

ℹ Use print(n = ...) to see more rows

HDCat2=HDCat%>% tab_frequencies(GENDER,SMOKING,PEER_PRESSURE,ANXIETY,LUNG_CANCER)

HDCat2

print(HDCat2)

Present CI with the mean and Sd in the same table

present frequencies for categorical variable in table

 install.packages("tidycomm")
library(tidycomm)



install.packages("tibble")
library(tibble)


HDCat=as_tibble(HD1)

HDCat

A tibble: 309 × 7

GENDER AGE WEIGHT SMOKING ANXIETY PEER_PRESSURE

1 Male 69 57 No Yes No
2 Male 74 103 Yes No No
3 Female 59 92 No No Yes
4 Male 63 58 Yes Yes No
5 Female 63 97 No No No
6 Female 75 107 No No No
7 Male 52 57 Yes No No
8 Female 51 101 Yes Yes Yes
9 Female 68 57 Yes Yes No
10 Male 53 83 Yes Yes Yes
# ℹ 299 more rows
# ℹ 1 more variable: LUNG_CANCER
# ℹ Use print(n = ...) to see more rows

HDCat2=HDCat%>% tab_frequencies(GENDER,SMOKING,PEER_PRESSURE,ANXIETY,LUNG_CANCER)

HDCat2

 A tibble: 29 × 9

GENDER SMOKING PEER_PRESSURE ANXIETY LUNG_CANCER n

• 1 Female No No No No 9
  2 Female No No No Yes 11
  3 Female No No Yes No 2
  4 Female No No Yes Yes 4
  5 Female No Yes No No 1
  6 Female No Yes No Yes 19
  7 Female No Yes Yes Yes 21
  8 Female Yes No No No 6
  9 Female Yes No No Yes 3
  10 Female Yes No Yes No 2

  ℹ 19 more rows

  ℹ 3 more variables: percent , cum_n ,

  cum_percent

  ℹ Use print(n = ...) to see more rows

  print(HDCat2)

  A tibble: 29 × 9

  GENDER SMOKING PEER_PRESSURE ANXIETY LUNG_CANCER n

• 1 Female No No No No 9
  2 Female No No No Yes 11
  3 Female No No Yes No 2
  4 Female No No Yes Yes 4
  5 Female No Yes No No 1
  6 Female No Yes No Yes 19
  7 Female No Yes Yes Yes 21
  8 Female Yes No No No 6
  9 Female Yes No No Yes 3
  10 Female Yes No Yes No 2

  ℹ 19 more rows

  ℹ 3 more variables: percent , cum_n ,

  cum_percent

  ℹ Use print(n = ...) to see more rows

   print(HDCat2)