R: Official Secrecy of the United States Government
USclassifiedDocuments
R Documentation
Official Secrecy of the United States Government
Description
Data on classification activity of the United States government.
Fitzpatrick (2013) notes that the dramatic jump in derivative classification activity (DerivClassActivity) that occurred in 2009 coincided with "New guidance issued to include electronic environment". Apart from the jump in 2009, the DerivClassActivity tended to increase by roughly 12 percent per year (with a standard deviation of the increase in the natural logarithm of DerivClassActivity of 0.18).
Usage
data(USclassifiedDocuments)
Format
A dataframe containing :
year
the calendar year
OCAuthority
Number of people in the government designated as Original Classification Authorities for the indicated year.
OCActivity
Original classification activity for the indicated year: These are the number of documents created with an original classification, i.e., so designated by an official Original Classification Authority.
TenYearDeclass
Percent of OCActivity covered by the 10 year declassification rules.
DerivClassActivity
Derivative classification activity for the indicated year:
These are the number of documents created that claim another
document as the authority for classification.
Details
The lag 1 autocorrrelation of the first difference of the
logarithms of DerivClassActivity through 2008 is
-0.52. However, because there are only 13 numbers
(12 differences), this negative correlation is not statistically
significant.
##
## 1. plot DerivClassActivity
##
plot(DerivClassActivity~year, USclassifiedDocuments)
# Exponential growth?
plot(DerivClassActivity~year, USclassifiedDocuments,
log='y')
# A jump in 2009 as discussed by Fitzpatrick (2013).
# Otherwise plausibly a straight line.
##
## 2. First difference?
##
plot(diff(log(DerivClassActivity))~year[-1],
USclassifiedDocuments)
# Jump in 2009 but otherwise on distribution
##
## 3. autocorrelation?
##
sel <- with(USclassifiedDocuments,
(1995 < year) & (year < 2009) )
acf(diff(log(USclassifiedDocuments$
DerivClassActivity[sel])))
# lag 1 autocorrelation = (-0.52).
# However, with only 12 numbers,
# this is not statistically significant.
Results
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(Ecdat)
Loading required package: Ecfun
Attaching package: 'Ecfun'
The following object is masked from 'package:base':
sign
Attaching package: 'Ecdat'
The following object is masked from 'package:datasets':
Orange
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/Ecdat/USclassifiedDocuments.Rd_%03d_medium.png", width=480, height=480)
> ### Name: USclassifiedDocuments
> ### Title: Official Secrecy of the United States Government
> ### Aliases: USclassifiedDocuments
> ### Keywords: datasets
>
> ### ** Examples
>
> ##
> ## 1. plot DerivClassActivity
> ##
> plot(DerivClassActivity~year, USclassifiedDocuments)
> # Exponential growth?
>
> plot(DerivClassActivity~year, USclassifiedDocuments,
+ log='y')
> # A jump in 2009 as discussed by Fitzpatrick (2013).
> # Otherwise plausibly a straight line.
>
> ##
> ## 2. First difference?
> ##
> plot(diff(log(DerivClassActivity))~year[-1],
+ USclassifiedDocuments)
> # Jump in 2009 but otherwise on distribution
>
> ##
> ## 3. autocorrelation?
> ##
> sel <- with(USclassifiedDocuments,
+ (1995 < year) & (year < 2009) )
> acf(diff(log(USclassifiedDocuments$
+ DerivClassActivity[sel])))
> # lag 1 autocorrelation = (-0.52).
> # However, with only 12 numbers,
> # this is not statistically significant.
>
>
>
>
>
> dev.off()
null device
1
>