R Graphical Manual

Browse All

Last data update: 2014.03.03

R: Rate of change (RoC) calculation using SF

roc.sf

R Documentation

Rate of change (RoC) calculation using SF

Description

Employs dm.sf over time to calculate RoCs. This function is valid only when multiplicative form of directional vector is used.

Usage

roc.sf(xdata, ydata, date, t, rts, g, w=NULL, sg="ssm", ftype="d")

Arguments

`xdata`	Input(s) vector (n by m)
`ydata`	Output(s) vector (n by s)
`date`	Production date (n by 1)
`t`	A vantage point from which the RoC is captured
`rts`	Returns to scale assumption `"crs"` Constant RTS `"vrs"` Variable RTS `"irs"` Increasing RTS `"drs"` Decreasing RTS
`g`	Directional vector indicating a measurement direction (n by (m+s))
`w`	Weak disposability vector indicating (an) undesirable output(s) (1 by s)
`sg`	Employs second-stage optimization `"ssm"` Slack-sum maximization (default) `"max"` Date-sum maximization `"min"` Date-sum minimization
`ftype`	Frontier type `"d"` Dynamic frontier (default) `"s"` Static frontier

Value

`$eff_r`	Efficiency at release (i.e., at each production date)
`$eff_t`	Efficiency at `t`
`$lambda_t`	Intensity vector at `t`
`$eft_date`	Effective date
`$roc_past`	RoC observed from the obsolete DMUs in the past
`$roc_avg`	Average RoC
`$roc_local`	Local RoC

Author(s)

Dong-Joon Lim, PhD

References

D.-J. Lim, Internal combustion engine race: naturally aspirated vs turbo/super-charged, working paper (2015).

Examples

# Reproduce Mercedes-Benz CLA45 AMG's local RoC in Table 5 in Lim, D-J. (2015)
  # Load engine dataset
    data(dataset.engine.2015)
  
  # Subset for 4 cylinder engines
    fce<-subset(dataset.engine.2015,dataset.engine.2015[,3]==4)
    
  # Parameters
    x<-subset(fce,select=4)
    y<-subset(fce,select=5:7)
    d<-subset(fce,select=2)
    g<-as.matrix(data.frame(0,y))
    w<-matrix(c(1,0,0),ncol=3)

  # Calc local Roc
    roc.sf(x,y,d,2014,"crs",g,w,"min")$roc_local[348,]

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(DJL)
Loading required package: car
Loading required package: combinat

Attaching package: 'combinat'

The following object is masked from 'package:utils':

    combn

Loading required package: lpSolveAPI
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/DJL/roc.sf.Rd_%03d_medium.png", width=480, height=480)
> ### Name: roc.sf
> ### Title: Rate of change (RoC) calculation using SF
> ### Aliases: roc.sf
> 
> ### ** Examples
> 
> # Reproduce Mercedes-Benz CLA45 AMG's local RoC in Table 5 in Lim, D-J. (2015)
>   # Load engine dataset
>     data(dataset.engine.2015)
>   
>   # Subset for 4 cylinder engines
>     fce<-subset(dataset.engine.2015,dataset.engine.2015[,3]==4)
>     
>   # Parameters
>     x<-subset(fce,select=4)
>     y<-subset(fce,select=5:7)
>     d<-subset(fce,select=2)
>     g<-as.matrix(data.frame(0,y))
>     w<-matrix(c(1,0,0),ncol=3)
> 
>   # Calc local Roc
>     roc.sf(x,y,d,2014,"crs",g,w,"min")$roc_local[348,]
[1] 1.048605
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>