[Splm-commits] r215 - in pkg: . R data man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Sun Sep 10 17:44:20 CEST 2017
Author: the_sculler
Date: 2017-09-10 17:44:19 +0200 (Sun, 10 Sep 2017)
New Revision: 215
Modified:
pkg/DESCRIPTION
pkg/R/bsjktest.formula.R
pkg/R/pbsjkARtest.R
pkg/R/pbsjkJtest.R
pkg/R/pbsjkREtest.R
pkg/R/pbsjkSDtest.R
pkg/data/RiceFarms.rda
pkg/man/RiceFarms.Rd
Log:
Eliminated calls to plm.data, subst. with pdata.frame. Fixed problems with functions attempting to convert pdata.frames into pdata.frames.
Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/DESCRIPTION 2017-09-10 15:44:19 UTC (rev 215)
@@ -1,7 +1,7 @@
Package: splm
Title: Econometric Models for Spatial Panel Data
-Version: 1.4-7
-Date: 2017-05-11
+Version: 1.4-9
+Date: 2017-09-10
Authors at R: c(person(given = "Giovanni", family = "Millo", role = c("aut", "cre"), email = "giovanni.millo at generali.com"),
person(given = "Gianfranco", family = "Piras", role = c("aut"), email = "gpiras at mac.com"))
Author: Giovanni Millo [aut, cre],
Modified: pkg/R/bsjktest.formula.R
===================================================================
--- pkg/R/bsjktest.formula.R 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/R/bsjktest.formula.R 2017-09-10 15:44:19 UTC (rev 215)
@@ -10,10 +10,9 @@
}
## transform data if needed
- if(!is.null(index)) {
- #require(plm)
- data <- plm.data(data, index)
- }
+ if(!("pdata.frame" %in% class(data))) {
+ data <- pdata.frame(data, index)
+ }
gindex <- dimnames(data)[[2]][1]
tindex <- dimnames(data)[[2]][2]
Modified: pkg/R/pbsjkARtest.R
===================================================================
--- pkg/R/pbsjkARtest.R 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/R/pbsjkARtest.R 2017-09-10 15:44:19 UTC (rev 215)
@@ -11,11 +11,11 @@
#require(nlme) #not needed any more
- ## reorder data if needed
- if(!is.null(index)) {
+ ## reorder data if needed # done already
+ #if(!is.null(index)) {
#require(plm)
- data <- plm.data(data, index)
- }
+ # data <- plm.data(data, index)
+ # }
gindex <- data[,1]
tindex <- data[,2]
Modified: pkg/R/pbsjkJtest.R
===================================================================
--- pkg/R/pbsjkJtest.R 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/R/pbsjkJtest.R 2017-09-10 15:44:19 UTC (rev 215)
@@ -8,11 +8,11 @@
## for our purpose data has to be (re)ordered
## by time, then group (but this is cared for just below)
- ## reorder data if needed
- if(!is.null(index)) {
+ ## reorder data if needed # done already
+ #if(!is.null(index)) {
#require(plm)
- data <- plm.data(data, index)
- }
+ # data <- plm.data(data, index)
+ # }
gindex <- data[,1]
tindex <- data[,2]
Modified: pkg/R/pbsjkREtest.R
===================================================================
--- pkg/R/pbsjkREtest.R 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/R/pbsjkREtest.R 2017-09-10 15:44:19 UTC (rev 215)
@@ -20,11 +20,11 @@
#require(nlme) # not needed any more
- ## reorder data if needed
- if(!is.null(index)) {
+ ## reorder data if needed # done already
+ #if(!is.null(index)) {
#require(plm)
- data <- plm.data(data, index)
- }
+ # data <- plm.data(data, index)
+ # }
gindex <- data[,1]
tindex <- data[,2]
Modified: pkg/R/pbsjkSDtest.R
===================================================================
--- pkg/R/pbsjkSDtest.R 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/R/pbsjkSDtest.R 2017-09-10 15:44:19 UTC (rev 215)
@@ -16,11 +16,11 @@
#require(nlme) # not needed any more
- ## reorder data if needed
- if(!is.null(index)) {
+ ## reorder data if needed # done already
+ #if(!is.null(index)) {
#require(plm)
- data <- plm.data(data, index)
- }
+ # data <- plm.data(data, index)
+ # }
gindex <- data[,1]
tindex <- data[,2]
Modified: pkg/data/RiceFarms.rda
===================================================================
(Binary files differ)
Modified: pkg/man/RiceFarms.Rd
===================================================================
--- pkg/man/RiceFarms.Rd 2017-05-11 13:52:01 UTC (rev 214)
+++ pkg/man/RiceFarms.Rd 2017-09-10 15:44:19 UTC (rev 215)
@@ -1,21 +1,24 @@
\name{RiceFarms}
\docType{data}
\alias{RiceFarms}
-\title{Production of Rice in Indonesia}
+\title{Production of Rice in India }
\description{
- A panel of 171 observations
+ yearly observations of 171 farms
\emph{number of observations} : 1026
- \emph{observation} : farms
-
\emph{country} : Indonesia
+\emph{economic topic} : producer behavior
+
+\emph{econometrics topic} : error component
+
}
\usage{data(RiceFarms)}
\format{A dataframe containing :
\describe{
\item{id}{the farm identifier}
+ \item{time}{the growing season}
\item{size}{the total area cultivated with rice, measured in hectares}
\item{status}{land status, on of \code{'owner'} (non sharecroppers, owner operators or leasholders or both), \code{'share'} (sharecroppers), \code{'mixed'} (mixed of the two previous status)}
\item{varieties}{one of \code{'trad'} (traditional varieties), \code{'high'} (high yielding varieties) and \code{'mixed'} (mixed varieties)}
@@ -34,12 +37,18 @@
\item{goutput}{gross output of rice in kg}
\item{noutput}{net output, gross output minus harvesting cost (paid in terms of rice)}
\item{price}{price of rough rice in Rupiah per kg}
- \item{region}{one of six regions}
+ \item{region}{one of \code{'wargabinangun'}, \code{'langan'}, \code{'gunungwangi'}, \code{'malausma'}, \code{'sukaambit'}, \code{'ciwangi'}}
}
}
\source{
+ Journal of Applied Econometrics data archive : \url{http://jae.wiley.com/}.
+
+}
+\references{
Qu Feng and William C. Horrace, (2012) \dQuote{Alternative Measures of Technical Efficiency: Skew, Bias and Scale}, \emph{Journal of Applied Econometrics}, \bold{forthcoming}.
+ Horrace, W.C. and P. Schmidt (1996) \dQuote{Confidence statements for efficiency estimates from stochastic frontier models}, \emph{Journal of Productivity Analysis}, \bold{ 7}, 257--282.
+
}
-\author{Yves Croissant}
+
\keyword{datasets}
More information about the Splm-commits
mailing list