Ecosystem/misc-research
1
0
Fork 0
mirror of https://github.com/Rucknium/misc-research.git synced 2024-12-22 11:29:22 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Financial Marginalization and Cryptocurrency before Reddit post

Browse source
This commit is contained in:
Rucknium 2022-05-26 21:34:37 +00:00
parent f56015b64a
commit fd4bb3c584
2 changed files with 49 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
Financial-Marginalization-and-Cryptocurrency/Financial-Marginalization-and-Cryptocurrency-Payments.Rmd
View file

@ -116,11 +116,11 @@ SHED$crypto.used.as.payment <- SHED$S16_b == "Yes"
# Do you and/or your spouse or partner # Do you and/or your spouse or partner
# currently have a checking, savings or money # currently have a checking, savings or money
# market account? # market account?
SHED$does.not.have.bank.account <- SHED$BK1 == "No" SHED$lacks.bank.account <- SHED$BK1 == "No"
# C2A # C2A
# Do you currently have at least one credit card? # Do you currently have at least one credit card?
SHED$does.not.have.credit.card <- SHED$C2A == "No" SHED$lacks.credit.card <- SHED$C2A == "No"
# ppgender # ppgender
# Gender [Ipsos source] # Gender [Ipsos source]
@ -308,7 +308,7 @@ SHED <- svydesign(ids = ~0, data = SHED, weights = SHED$weight_pop)
svyvar.covariance <- svyvar(~ age + is.male + crypto.used.as.payment + svyvar.covariance <- svyvar(~ age + is.male + crypto.used.as.payment +
does.not.have.bank.account + does.not.have.credit.card, SHED, na.rm = TRUE) lacks.bank.account + lacks.credit.card, SHED, na.rm = TRUE)
attr(svyvar.covariance, "var") <- NULL attr(svyvar.covariance, "var") <- NULL
svyvar.correlation <- cov2cor(as.matrix(svyvar.covariance)) svyvar.correlation <- cov2cor(as.matrix(svyvar.covariance))
@ -316,29 +316,29 @@ print(round(svyvar.correlation, 3))
corrplot(svyvar.correlation, tl.col = "darkred", tl.srt = 35, corrplot(svyvar.correlation, tl.col = "darkred", tl.srt = 35,
method = "shade", number.digits = 2, addshade = "all", diag = FALSE, method = "shade", number.digits = 2, addshade = "all", diag = FALSE,
title = "\n\n Correlation Plot", title = "\n\n Correlation Matrix of Financial Marginalization\nand Use of Cryptocurrency as a Means of Payment",
addCoef.col = "black", type = "lower") addCoef.col = "black", type = "lower")
``` ```
# Main results # Main results
## does.not.have.bank.account ## lacks.bank.account
```{r main-results-does-not-have-bank-account} ```{r main-results-lacks-bank-account}
svyglm.fit <- svyglm(crypto.used.as.payment ~ age + is.male + does.not.have.bank.account, svyglm.fit <- svyglm(crypto.used.as.payment ~ age + is.male + lacks.bank.account,
SHED, family = stats::quasibinomial(link = "logit")) SHED, family = stats::quasibinomial(link = "logit"))
summary(svyglm.fit) summary(svyglm.fit)
or_svyglm(SHED$variables$variables, svyglm.fit, incr = list(age = 1)) or_svyglm(SHED$variables, svyglm.fit, incr = list(age = 1))
``` ```
## does.not.have.credit.card ## lacks.credit.card
```{r main-results-does-not-have-credit-card} ```{r main-results-lacks-credit-card}
svyglm.fit <- svyglm(crypto.used.as.payment ~ age + is.male + does.not.have.credit.card, svyglm.fit <- svyglm(crypto.used.as.payment ~ age + is.male + lacks.credit.card,
SHED, family = stats::quasibinomial(link = "logit")) SHED, family = stats::quasibinomial(link = "logit"))
summary(svyglm.fit) summary(svyglm.fit)
or_svyglm(SHED$variables, svyglm.fit, incr = list(age = 1)) or_svyglm(SHED$variables, svyglm.fit, incr = list(age = 1))

76
Financial-Marginalization-and-Cryptocurrency/Financial-Marginalization-and-Cryptocurrency-Payments.html
View file

File diff suppressed because one or more lines are too long