Description Usage Format Source Examples
Part of a point of sale survey (n=235) in Freiburg-Haslach with respect to grocery shopping behavior.
1 | data("HaslachSurvey")
|
A data frame with 470 observations on the following 24 variables.
DATUMa numeric vector containing the datum code
UHRZEITa numeric vector containing the time code
BEFRSTANDORT2a numeric vector containing the sample point code
LMHAEUFa numeric vector containing the weekly frequency of grocery shopping
LM1a numeric vector containing the store code of the last grocery shopping trip
LM1_Texta character vector containing the store code (character) of the last grocery shopping trip, corresponding to variable LM1 in the HaslachStores dataset
LM1Aa character vector containing other shopping destinations on grocery shopping trips (not coded)
LM1Ea numeric vector containing the amount of purchases corresponding to the last grocery shopping trip
LM2a numeric vector containing the store code of the second to the last grocery shopping trip
LM2_Texta character vector containing the store code (character) of the second to the the last grocery shopping trip, corresponding to variable LM2 in the HaslachStores dataset
LM2Aa character vector containing other shopping destinations on grocery shopping trips (not coded)
LM2Ea numeric vector containing the amount of purchases corresponding to the second to the last grocery shopping trip
ZUFR_LMa numeric vector containing customer satisfaction scores (1=best, ... 6=worst) with respect to local grocery stores supply
ZUFR_LMEa numeric vector containing customer satisfaction scores (1=best, ... 6=worst) with respect to local grocery stores accessibility
ZUFR_APOa numeric vector containing customer satisfaction scores (1=best, ... 6=worst) with respect to local pharmacies supply
ZUFR_EHSOa numeric vector containing customer satisfaction scores (1=best, ... 6=worst) with respect to other types of local retailing
ZUFR_BANKa numeric vector containing customer satisfaction scores (1=best, ... 6=worst) with respect to local bank supply
WOHNSTANDORTa numeric vector containing the district code
WOa character vector containing the district code, corresponding to variable WO in the HaslachDistricts dataset
ALTERKATa numeric vector containing the code of age categoory
GESCHLa numeric vector containing the gender code
BERUFa numeric vector containing the code of the respondent's working status
HHPERSa numeric vector containing the household size
HHKINDa numeric vector containing the no. of children in the household
Own survey (June 2018). Own postprocessing.
Wieland, T. (2018): “Competitive locations of grocery stores in the local supply context - The case of the urban district Freiburg-Haslach”. In: European Journal of Geography, 9, 3, p. 98-115.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | # Compilation of tcmat list from existing datasets:
# (Results from the tcmat.create function)
data(Haslach_tcmatAirline)
# airline distances
data(Haslach_coords_origins)
# Coordinates of origins
data(Haslach_coords_destinations)
# Coordinates of destinationes
# Component "tc.mode":
Airline_tc.mode <- list()
Airline_tc.mode$tc.type = "airline"
Airline_tc.mode$tc.unit = "km"
Airline_tc.mode$tc.constant = 0
# tcmat with airline distances
# Compilation as a list:
tcmat_haslach_airline <- list(tcmat = Haslach_tcmatAirline,
coords_origins = Haslach_coords_origins,
coords_destinations = Haslach_coords_destinations,
tc.mode = Airline_tc.mode)
Drvtime_tc.mode <- list()
Drvtime_tc.mode$tc.type = "street"
Drvtime_tc.mode$tc.unit = "min"
Drvtime_tc.mode$tc.constant = 0
data(Haslach_tcmatDrvtime)
# car driving times
# tcmat with car driving times
# Compilation as a list:
tcmat_haslach_drvtime <- list(tcmat = Haslach_tcmatDrvtime,
coords_origins = Haslach_coords_origins,
coords_destinations = Haslach_coords_destinations,
tc.mode = Drvtime_tc.mode)
data(HaslachSurvey)
# survey raw data (Store choices and purchases)
data(HaslachDistricts)
# IDs and information about customer origins
data(HaslachStores)
# IDs and information about destinations (grocery stores)
# Preparing raw data (HaslachSurvey)
HaslachSurvey_prepared <- rawdata.prep (cols.below1 =
list(HaslachSurvey$LM1_Text, HaslachSurvey$LM2_Text),
cols.below2 = list(HaslachSurvey$LM1E, HaslachSurvey$LM2E),
cols.keep = list(HaslachSurvey$WO),
colnames.new = c("LM", "LME", "Wohnort"))
# "WO" and "Wohnort" = origin ID
# "LM1_Text", "LM2_Text" and "LM" = destination IDs (grocery stores)
# "LM1E", "LM2E" and "LME" = grocery store purchases
# Creating a MCI interaction matrix
# based on raw data of a survey (HaslachSurvey_prepared)
# and a tcmat list object
mcimat_haslach <- mcimat.create(rawdata = HaslachSurvey_prepared,
origins.id = "Wohnort", destinations.id = "LM", "LME",
tcmat = tcmat_haslach_airline,
remOrig = c("SBXXX", "SB613"), corObserved = 0.1,
origvar.data = HaslachDistricts, origvardata.id = "WO",
destvar.data = HaslachStores, destvardata.id = "LM")
# MCI model based on empirical local market shares
# two explanatory variables: distance (d_ij), store size (LM_VKF)
mcimodel_haslach <- mci (mcimat_haslach, "p_ij", "d_ij", "LM_VKF",
show_proc = TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.