File:Metoda syntetycznej kontroli PL.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file ‎(SVG file, nominally 563 × 563 pixels, file size: 42 KB)

Captions

Captions

Synthetic control method use illustration, with a Polish language legend

Summary[edit]

Description
English: Graph from CC-BY-3.0/GPL paper doi:10.18637/jss.v042.i13 showing an example of synthetic control method use, based on Abadie et al. analysis of Basque Country GDP
Date
Source

Reproduced in R based on the code presented in the CC-BY-3.0 and GPL licensed open science paper: Abadie, Alberto and Diamond, Alexis J. and Hainmueller, Jens, Synth: An R Package for Synthetic Control Methods in Comparative Case Studies (June 2011). Journal of Statistical Software, Vol. 42, Issue 13, June 2011. Paper and license information available at: https://www.jstatsoft.org/article/view/v042i13 

# from http://www.jstatsoft.org/v42/i13/paper on CC-BY-3.0/GPL license

library(Synth)
data("basque")

dataprep.out <- dataprep(
  foo = basque,
  predictors = c("school.illit", "school.prim", "school.med",
                   "school.high", "school.post.high", "invest"),
  predictors.op = "mean",
  time.predictors.prior = 1964:1969,
  special.predictors = list(
    list("gdpcap", 1960:1969 , "mean"),
    list("sec.agriculture", seq(1961, 1969, 2), "mean"),
    list("sec.energy", seq(1961, 1969, 2), "mean"),
    list("sec.industry", seq(1961, 1969, 2), "mean"),
    list("sec.construction", seq(1961, 1969, 2), "mean"),
    list("sec.services.venta", seq(1961, 1969, 2), "mean"),
    list("sec.services.nonventa", seq(1961, 1969, 2), "mean"),
    list("popdens", 1969, "mean")),
  dependent = "gdpcap",
  unit.variable = "regionno",
  unit.names.variable = "regionname",
  time.variable = "year",
  treatment.identifier = 17,
  controls.identifier = c(2:16, 18),
  time.optimize.ssr = 1960,
  time.plot = 1955:1997)

synth.out <- synth(data.prep.obj = dataprep.out, method = "BFGS")
gaps <- dataprep.out$Y1plot - (dataprep.out$Y0plot %*% synth.out$solution.w)

path.plot(synth.res = synth.out, dataprep.res = dataprep.out,
          Ylab = "realne PKB per capita (tys. 1986 USD)", Xlab = "rok",
          Ylim = c(0, 12), Legend = c("Kraj Basków", "syntetyczny Kraj Basków"), 
          Legend.position = "bottomright")
Author Alberto Abadie, Alexis J. Diamond, Jens Hainmueller

Licensing[edit]

w:en:Creative Commons
attribution
This file is licensed under the Creative Commons Attribution 3.0 Unported license.
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current17:32, 24 March 2019Thumbnail for version as of 17:32, 24 March 2019563 × 563 (42 KB)Jaszczuroczłek (talk | contribs)User created page with UploadWizard

You cannot overwrite this file.

There are no pages that use this file.

File usage on other wikis

The following other wikis use this file:

Metadata

This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Metoda_syntetycznej_kontroli_PL.svg&oldid=496783296"