Learn R Programming

deaR (version 1.4.1)

Kao_Liu_2003: Data: Kao and Liu (2003).

Description

Data of 24 university libraries in Taiwan with one input and five outputs.

Usage

data("Kao_Liu_2003")

Arguments

Format

Data frame with 24 rows and 11 columns. Definition of fuzzy inputs (X) and fuzzy outputs (Y):

x1 = Patronage

It is a weighted sum of the standardized scores of faculty, graduate students, undergraduate students, and extension students in the range of 0 and 1.

y1 = Collections

Books, serials, microforms, audiovisual works, and database.

y2 = Personnel

Classified staff, unclassified staff, and student assistants.

y3 = Expenditures

Capital expenditure, operating expenditure, and special expenditure.

y4 = Buildings

Area and seats

y5 = Services

Operating hours, attendance, circulation, communication channels, range of services, amount of services, etc.

beta3_l

lower spread vector Expenditures

beta3_u

upper spread vector Expenditures

beta5_l

lower spread vector Services

beta5_u

upper spread vector Services

Author

Vicente Coll-Serrano (vicente.coll@uv.es). Quantitative Methods for Measuring Culture (MC2). Applied Economics.

Vicente Bolos (vicente.bolos@uv.es). Department of Business Mathematics

Rafael Benitez (rafael.suarez@uv.es). Department of Business Mathematics

University of Valencia (Spain)

See Also

make_deadata_fuzzy, model_basic

Examples

Run this code
# Example. Replication of results in Kao and Liu (2003, p.152)
data_example <- make_deadata_fuzzy(Kao_Liu_2003,
                                   dmus = 1,
                                   inputs.mL = 2,
                                   outputs.mL = 3:7,
                                   outputs.dL = c(NA, NA, 8, NA, 10),
                                   outputs.dR = c(NA, NA, 9, NA, 11))
result <- modelfuzzy_kaoliu(data_example,
                            kaoliu_modelname = "basic",
                            orientation = "oo",
                            rts = "vrs",
                            alpha = 0)
eff <- efficiencies(result)
eff

Run the code above in your browser using DataLab