[Vwgh-commits] r14 - in pkg: . R man

[noreply at r-forge.r-project.org]

Author: martinkober
Date: 2008-02-19 16:06:13 +0100 (Tue, 19 Feb 2008)
New Revision: 14

Modified:
   pkg/DESCRIPTION
   pkg/R/compute_from_db.R
   pkg/R/duration_of_proc.R
   pkg/man/duration_of_proc.Rd
   pkg/man/put_RIS_jurisdictions_into_data_frame.Rd
Log:
duration_of_proc finalized, doc update

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2008-02-13 13:57:44 UTC (rev 13)
+++ pkg/DESCRIPTION	2008-02-19 15:06:13 UTC (rev 14)
@@ -1,9 +1,9 @@
 Package: VwGHat
 Type: Package
 Title: Mining Austrian administrative court rulings 
-Version: 0.8-2
-Date: 2008-02-12
-Author: Martin Kober and Georg Zajko
+Version: 0.8-3
+Date: 2008-02-18
+Author: Kurt Hornik, Martin Kober and Georg Zajko
 Maintainer: Georg Zajko <georg.zajko at wu-wien.ac.at>
 Description: Performs data extraction and mining of Austrian supreme administrative court rulings (http://www.vwgh.gv.at).
 License: GPL-2

Modified: pkg/R/compute_from_db.R
===================================================================
--- pkg/R/compute_from_db.R	2008-02-13 13:57:44 UTC (rev 13)
+++ pkg/R/compute_from_db.R	2008-02-19 15:06:13 UTC (rev 14)
@@ -22,6 +22,8 @@
 		fields = paste(c("SP_Nr", fields_in), collapse=", ")
 		rs <- dbGetQuery(con,paste("select ", fields, " from Rechtsinformationssystem where SP_Nr>=",start," and SP_Nr<=",stop,";"))
 		
+
+		
 		j <- 1
 		len2 <- length(rs[,1])
 

Modified: pkg/R/duration_of_proc.R
===================================================================
--- pkg/R/duration_of_proc.R	2008-02-13 13:57:44 UTC (rev 13)
+++ pkg/R/duration_of_proc.R	2008-02-19 15:06:13 UTC (rev 14)
@@ -1,9 +1,10 @@
 `duration_of_proc` <-
 function(data) {
-	correction_factor = 0 #-100 + 6*7 # ???
+	correction_factor = - 42 
 
 	end = as.Date(as.character(data[["Entscheidungsdatum"]]), "%Y%m%d")
 	txt = data[["Betreff"]]
+	Encoding(txt) = "UTF-8"
 	
 	month_list = c("Jänner"=1, Januar=1, Feber=2, Februar=2, "März"=3, April=4,
 		Mai=5, Juni=6, Juli=7, August=8, September=9, Oktober=10, November=11, Dezember=12)
@@ -27,7 +28,7 @@
 		dates[i] = as.Date(paste(dd, collapse="-"), "%Y-%m-%d")
 	}
 	class(dates) = "Date"
-	start = dates[1]
+	start = max(dates)
 	dur = end - start
 	
 	return(list(duration_of_proc=(as.integer(dur) + correction_factor), 

Modified: pkg/man/duration_of_proc.Rd
===================================================================
--- pkg/man/duration_of_proc.Rd	2008-02-13 13:57:44 UTC (rev 13)
+++ pkg/man/duration_of_proc.Rd	2008-02-19 15:06:13 UTC (rev 14)
@@ -6,7 +6,7 @@
 \title{ Duration of a process }
 
 \description{
-  It reads out the starting date and the date of the decision, calculates the difference and adds 6 weeks.}
+  It reads out the date of the rule of the last instance and the date of the VwGH decision, calculates the difference and subtracts 6 weeks.}
 
 \usage{
 duration_of_proc(data)
@@ -14,7 +14,7 @@
 
 
 \arguments{
-  \item{data}{ Single-row dataframe with the the columns "Entscheidungsdatum" and "Veroeffentlichungsdatum"}
+  \item{data}{ Single-row dataframe with the the columns ``Entscheidungsdatum'' and ``Veroeffentlichungsdatum''}
 }
 
 
@@ -23,8 +23,16 @@
   It returns the process duration as number of days.
 }
 
-\references{ Austrian law information system \url{http://www.ris.bka.gv.at/} }
+\details{
+	The start date of the process is determined by search for the most recent date in the 
+	`Betreff' field, this gives good results for the sample dataset from Nagel and Mamut (2006) (note that the classification in the dataset is inconsistent for cases involving more than one incident, sometimes choosing the first incident as a reference date). 42 days are subtracted from the date difference, as appelants have six weeks to file their case to the VwGH.
+}
 
+\references{ Austrian law information system \url{http://www.ris.bka.gv.at/} 
+
+Nagel, H. and Mamut, M. (2006): Rechtsprechung des VwGH in Abgabensachen 2000–
+2004.}
+
 \author{ Martin Kober <martin.kober at wu-wien.ac.at>, Georg M. Zajko <georg.zajko at wu-wien.ac.at> }
 
 \keyword{misc}

Modified: pkg/man/put_RIS_jurisdictions_into_data_frame.Rd
===================================================================
--- pkg/man/put_RIS_jurisdictions_into_data_frame.Rd	2008-02-13 13:57:44 UTC (rev 13)
+++ pkg/man/put_RIS_jurisdictions_into_data_frame.Rd	2008-02-19 15:06:13 UTC (rev 14)
@@ -23,7 +23,7 @@
 
 \references{ Austrian law information system \url{http://www.ris.bka.gv.at/} }
 
-\author{ Martin Kober <martin.kober at wu-wien.ac.at>, Georg M. Zajko <georg.zajko at wu-wien.ac.at> }
+\author{ Kurt Hornik <kurt.hornik at wu-wien.ac.at>, Martin Kober <martin.kober at wu-wien.ac.at>, Georg M. Zajko <georg.zajko at wu-wien.ac.at> }
 
 \examples{
 \dontrun{