Count and Proportion of Cannabis Users by Hypertension and Hypertensive Rx

## 
## Attaching package: 'moonBook'

## The following object is masked from 'package:lattice':
## 
##     densityplot

## Welcome to package ztable ver 0.1.5

Proportion of Cannabis Users with History of Hypertension

options(ztable.type="html")
t=mytable(MedHxMarijStatusCurrent~.,data=CBHTN)
z = ztable(t)
print(z,caption="Cannabis Use by History of Hypertension")

Cannabis Use by History of Hypertension
No Yes p
(N=2441) (N=350)
HTN 0.008
    No 1303 (53.4%) 214 (61.1%)
    Yes 1138 (46.6%) 136 (38.9%) 

# 0 = No Current Cannabis Use, 1 = Current Cannabis Use
# HTN = Hypertension, No = No History of Hypertension, Yes = History of Hypertension

Proportion of Cannabis Users with a Rx for Anti-Hypertensive Medication

options(ztable.type="html")
t=mytable(MedHxMarijStatusCurrent~.,data=CBrxHTN)
z = ztable(t)
print(z,caption="Cannabis Use by Hypertension Medication Use")

Cannabis Use by Hypertension Medication Use
No Yes p
(N=2451) (N=351)
rxHTN 0.000
    No 782 (31.9%) 60 (17.1%)
    Yes 1669 (68.1%) 291 (82.9%) 

# 0 = No Current Cannabis Use, 1 = Current Cannabis Use
# rxHTN = Hypertension Medication Use (0 = No Use, 1 = Use)

Proportion of Cannabis Users with a History of Prescribed Anti-Hypertensive Medication

options(ztable.type="html")
t=mytable(MedHxMarijStatusCurrent~.,data=CBMedBP)
z = ztable(t)
print(z,caption="Cannabis Use by History of Hypertension Medication Use")

Cannabis Use by History of Hypertension Medication Use
0 1 p
(N=2451) (N=351)
MedHxMedsBP 0.000
    0 1562 (63.7%) 269 (76.6%)
    1 889 (36.3%) 82 (23.4%) 

#  0 = No Current Cannabis Use, 1 = Current Cannabis Use
# rxMedBPMeds = History of Hypertension Medication Use (0 = No History of Use, 1 = History of Use)

Mean and SD of Marijuana Users With and Without Hypertension Medication

Systolic Blood Pressure

Mean

aggregate( PhysMeanSBPsitimp~rxHTN, MJHTN, mean )

##   rxHTN PhysMeanSBPsitimp
## 1    No       119.6415197
## 2   Yes       128.0666667

Standard Deviation

aggregate( PhysMeanSBPsitimp~rxHTN, MJHTN, sd )

##   rxHTN PhysMeanSBPsitimp
## 1    No       17.20957119
## 2   Yes       17.24338897

t-test

x = MJHTN$rxHTN
y = MJHTN$PhysMeanSBPsitimp
t.test(y~x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -3.4472194, df = 84.993807, p-value = 0.0008829609
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -13.284561158  -3.565732709
## sample estimates:
##  mean in group No mean in group Yes 
##       119.6415197       128.0666667

Diastolic Blood Pressure

Mean

aggregate( PhysMeanDBPsitimp~rxHTN, MJHTN, mean )

##   rxHTN PhysMeanDBPsitimp
## 1    No       72.73791652
## 2   Yes       76.94166667

Standard Deviation

aggregate( PhysMeanDBPsitimp~rxHTN, MJHTN, sd )

##   rxHTN PhysMeanDBPsitimp
## 1    No       11.24967140
## 2   Yes       11.67682467

t-test

x = MJHTN$rxHTN
y = MJHTN$PhysMeanDBPsitimp
t.test(y~x)

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -2.5548374, df = 83.123909, p-value = 0.01244634
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -7.4763285504 -0.9311717344
## sample estimates:
##  mean in group No mean in group Yes 
##       72.73791652       76.94166667

Pulse Pressure

Mean

aggregate( PhysMeanPPsitimp~rxHTN, MJHTN, mean )

##   rxHTN PhysMeanPPsitimp
## 1    No      46.90360321
## 2   Yes      51.12500000

Standard Deviation

##   rxHTN PhysMeanPPsitimp
## 1    No      11.61827543
## 2   Yes      15.35032297

t-test

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -2.0145171, df = 73.551975, p-value = 0.04761187
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -8.39717070331 -0.04562287887
## sample estimates:
##  mean in group No mean in group Yes 
##       46.90360321       51.12500000

Mean and SD of Marijuana Users With and Without Hypertension

Systolic Blood Pressure

Mean

aggregate( PhysMeanSBPsitimp~HTN, MJHTN, mean )

##   HTN PhysMeanSBPsitimp
## 1  No       112.9716093
## 2 Yes       133.8670616

Standard Deviation

##   HTN PhysMeanSBPsitimp
## 1  No       11.70853948
## 2 Yes       17.52147357

t-test

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -12.274519, df = 211.68886, p-value < 2.2204e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -24.25117002 -17.53973470
## sample estimates:
##  mean in group No mean in group Yes 
##       112.9716093       133.8670616

Diastolic Blood Pressure

Mean

aggregate( PhysMeanDBPsitimp~HTN, MJHTN, mean )

##   HTN PhysMeanDBPsitimp
## 1  No       69.43071404
## 2 Yes       79.78764994

Standard Deviation

##   HTN PhysMeanDBPsitimp
## 1  No       9.196535136
## 2 Yes      11.766227767

t-test

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -8.7122711, df = 237.48536, p-value = 5.17465e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -12.698827958  -8.015043848
## sample estimates:
##  mean in group No mean in group Yes 
##       69.43071404       79.78764994

Pulse Pressure
Mean

##   HTN PhysMeanPPsitimp
## 1  No      43.54089522
## 2 Yes      54.07941168

Standard Deviation

##   HTN PhysMeanPPsitimp
## 1  No      8.486233662
## 2 Yes     14.743657121

t-test

## 
##  Welch Two Sample t-test
## 
## data:  y by x
## t = -7.576232, df = 192.42518, p-value = 1.457131e-12
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -13.282075742  -7.794957178
## sample estimates:
##  mean in group No mean in group Yes 
##       43.54089522       54.07941168