> buecher <- read.table("C:/Users/Dude/Documents/go!/go!/Dropbox/Open Social Science/Erhebungen/Daten/Artikelsample und Buechersample/buecher.csv",header=T,sep=";",quote="\"") > frequencies(buecher[c("Jahr")] , r.digits = 1) $Jahr ------------------------------------------------------------ -- Frequencies -- -- -- Value # of Cases % Cumulative % 1 2008 24 24 24 2 2009 23 23 47 3 2010 13 13 60 4 2011 14 14 74 5 2012 17 17 91 6 2013 9 9 100 -- -- -- Case Summary -- -- -- Valid Missing Total # of cases 100 0 100 -- -- -- -- ------------------------------------------------------------ > frequencies(buecher[c("Land")] , r.digits = 1) $Land ------------------------------------------------------------ -- Frequencies -- -- -- Value # of Cases % Cumulative % 1 AUS 2 2 2 2 CH 3 3 5 3 DE 45 45 50 4 FR 3 3 53 5 IND 1 1 54 6 IT 1 1 55 7 SWE 1 1 56 8 UK 21 21 77 9 UNG 1 1 78 10 USA 22 22 100 -- -- -- Case Summary -- -- -- Valid Missing Total # of cases 100 0 100 -- -- -- -- ------------------------------------------------------------ > buecher_Sample_D <- read.table("C:/Users/Dude/Documents/go!/go!/Dropbox/Open Social Science/Erhebungen/Daten/Artikelsample und Buechersample/buecher_Sample_D.csv",header=T,sep=";",quote="\"") > buecher_Sample_ND <- read.table("C:/Users/Dude/Documents/go!/go!/Dropbox/Open Social Science/Erhebungen/Daten/Artikelsample und Buechersample/buecher_Sample_ND.csv",header=T,sep=";",quote="\"") > frequencies(buecher_Sample_ND[c("Land")] , r.digits = 1) $Land ------------------------------------------------------------ -- Frequencies -- -- -- Value # of Cases % Cumulative % 1 FR 3 6 6 2 IND 1 2 8 3 IT 1 2 10 4 SWE 1 2 12 5 UK 21 42 54 6 UNG 1 2 56 7 USA 22 44 100 -- -- -- Case Summary -- -- -- Valid Missing Total # of cases 50 0 50 -- -- -- -- ------------------------------------------------------------ > frequencies(buecher_Sample_ND[c("Sprache")] , r.digits = 1) $Sprache ------------------------------------------------------------ -- Frequencies -- -- -- Value # of Cases % Cumulative % 1 EN 45 90 90 2 FR 3 6 96 3 IT 1 2 98 4 UNG 1 2 100 -- -- -- Case Summary -- -- -- Valid Missing Total # of cases 50 0 50 -- -- -- -- ------------------------------------------------------------ > frequencies(buecher_Sample_D[c("Sprache")] , r.digits = 1) $Sprache ------------------------------------------------------------ -- Frequencies -- -- -- Value # of Cases % Cumulative % 1 DE 41 82 82 2 EN 8 16 98 3 FR 1 2 100 -- -- -- Case Summary -- -- -- Valid Missing Total # of cases 50 0 50 -- -- -- -- ------------------------------------------------------------