This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| econometricsr [2025/06/02 13:22] – [Exemples] glebelg | econometricsr [2025/09/16 07:48] (current) – [Import/Export] glebelg | ||
|---|---|---|---|
| Line 1: | Line 1: | ||
| - | ====Start a script ==== | + | =====Start a script |
| | | ||
| library(stargazer) | library(stargazer) | ||
| Line 13: | Line 13: | ||
| data from Rdata | data from Rdata | ||
| | | ||
| - | ====Summary Stats==== | + | =====Summary Stats===== |
| stargazer(dataset, | stargazer(dataset, | ||
| Line 22: | Line 22: | ||
| | | ||
| | | ||
| - | ====Regressions==== | + | =====Regressions===== |
| linear | linear | ||
| reg1 <- lm(depvar ~ var1 + var2 + var3, data=dataset) | reg1 <- lm(depvar ~ var1 + var2 + var3, data=dataset) | ||
| + | use rlm for robust regressions | ||
| + | | ||
| | | ||
| probit | probit | ||
| Line 34: | Line 36: | ||
| | | ||
| | | ||
| - | ====Exemples==== | + | =====Exemples===== |
| + | install.packages(" | ||
| + | install.packages(" | ||
| + | install.packages(" | ||
| + | install.packages(" | ||
| + | devtools:: | ||
| + | |||
| #load libraries | #load libraries | ||
| - | #import ods | + | |
| library(readODS) | library(readODS) | ||
| - | #import xls/ | + | |
| library(readxl) | library(readxl) | ||
| - | #robustify fonction | + | |
| - | library(bucky) | + | library(MASS) |
| - | #for tables | + | #for tables |
| library(stargazer) | library(stargazer) | ||
| library(tidytab) | library(tidytab) | ||
| - | # for data manipulation | + | |
| library(tidyverse) | library(tidyverse) | ||
| | | ||
| # set work directory | # set work directory | ||
| - | setwd("/ | + | setwd("/ |
| # import ods | # import ods | ||
| Line 56: | Line 65: | ||
| db2< | db2< | ||
| - | # generate variables in dataset | + | #generate variables in dataset |
| - | | + | |
| db1$niveauscore <- db1$niveau * db1$score | db1$niveauscore <- db1$niveau * db1$score | ||
| | | ||
| #option2 - si beaucoup d' | #option2 - si beaucoup d' | ||
| - | + | | |
| - | attach(db2) | + | db2$niveauscore <- niveau * score |
| - | | + | detach(db2) |
| - | | + | |
| - | attach(db1) | + | |
| - | | + | db1$niveauminscore <- niveau - score |
| - | | + | detach(db1) |
| + | |||
| + | | ||
| | | ||
| # OLS regressions | # OLS regressions | ||
| | | ||
| - | model1 <- robustify(lm(score ~ age, data=db1),type = c(" | + | model1 <- rlm(score ~ age, data=db1) |
| - | model2 <- robustify(lm(score ~ niveau, data=db1),type = c(" | + | model2 <- rlm(score ~ niveau, data=db1) |
| - | model3 <- robustify(lm(score ~ age + niveau, data=db1),type = c(" | + | model3 <- rlm(score ~ age + niveau, data=db1) |
| | | ||
| stargazer(model1, | stargazer(model1, | ||
| Line 88: | Line 97: | ||
| db1 %>% tab1(age, sexe) | db1 %>% tab1(age, sexe) | ||
| db1 %>% ftab( sexe, age) | db1 %>% ftab( sexe, age) | ||
| + | |||
| + | =====Import/ | ||
| + | import excel | ||
| + | library(readxl) | ||
| + | db <- read_excel(" | ||
| + | View(db) | ||
| + | import stata | ||
| + | library(haven) | ||
| + | db <- read_dta(" | ||
| + | View(db) | ||
| + | | ||
| + | import CSV | ||
| + | db <- read_csv(" | ||
| + | View(db) | ||
| + | |||
| + | export excel | ||
| + | install.packages(" | ||
| + | library(xlsx) | ||
| + | write.xlsx(db, | ||
| + | |||
| + | =====Data Manipulation===== | ||
| + | |||
| + | ====drop publicates==== | ||
| + | newdata <- distinct(dataset, | ||