[Federal Register Volume 81, Number 158 (Tuesday, August 16, 2016)]
[Notices]
[Pages 54624-54626]
[FR Doc No: 2016-19445]

-----------------------------------------------------------------------

SECURITIES AND EXCHANGE COMMISSION

[Release No. 34-78536; File No. SR-BatsEDGA-2016-18]

Self-Regulatory Organizations; Bats EDGA Exchange, Inc.; Notice
of Filing and Immediate Effectiveness of a Proposed Rule Change Related
to Logical Port Fees

August 10, 2016.
    Pursuant to section 19(b)(1) of the Securities Exchange Act of 1934
(the ``Act''),\1\ and Rule 19b-4 thereunder,\2\ notice is hereby given
that on July 29, 2016, Bats EDGA Exchange, Inc. (the ``Exchange'' or
``EDGA'') filed with the Securities and Exchange Commission
(``Commission'') the proposed rule change as described in Items I, II
and III below, which Items have been prepared by the Exchange. The
Exchange has designated the proposed rule change as one establishing or
changing a member due, fee, or other charge imposed by the Exchange
under section 19(b)(3)(A)(ii) of the Act \3\ and Rule 19b-4(f)(2)
thereunder,\4\ which renders the proposed rule change effective upon
filing with the Commission. The Commission is publishing this notice to
solicit comments on the proposed rule change from interested persons.
---------------------------------------------------------------------------

    \1\ 15 U.S.C. 78s(b)(1).
    \2\ 17 CFR 240.19b-4.
    \3\ 15 U.S.C. 78s(b)(3)(A)(ii).
    \4\ 17 CFR 240.19b-4(f)(2).
---------------------------------------------------------------------------

I. Self-Regulatory Organization's Statement of the Terms of Substance
of the Proposed Rule Change

    The Exchange filed a proposal to amend the fee schedule applicable
to Members \5\ and non-Members of the Exchange pursuant to EDGA Rules
15.1(a) and (c).
---------------------------------------------------------------------------

    \5\ The term ``Member'' is defined as ``any registered broker or
dealer that has been admitted to membership in the Exchange.'' See
Exchange Rule 1.5(n).
---------------------------------------------------------------------------

    The text of the proposed rule change is available at the Exchange's
Web site at www.batstrading.com, at the principal office of the
Exchange, and at the Commission's Public Reference Room.

II. Self-Regulatory Organization's Statement of the Purpose of, and
Statutory Basis for, the Proposed Rule Change

    In its filing with the Commission, the Exchange included statements
concerning the purpose of and basis for the proposed rule change and
discussed any comments it received on the proposed rule change. The
text of these statements may be examined at the places specified in
Item IV below. The Exchange has prepared summaries, set forth in
sections A, B, and C below, of the most significant parts of such
statements.

A. Self-Regulatory Organization's Statement of the Purpose of, and the
Statutory Basis for, the Proposed Rule Change

1. Purpose
    The Exchange proposes to amend its fee schedule to modify the
billing policy for the logical port fees. The Exchange currently
charges for logical ports (including Multicast PITCH Spin Server and
GRP ports) $500 per port per month. A logical port represents a port
established by the Exchange within the Exchange's system for trading
and billing purposes. Each logical port established is specific to a
Member or non-Member and grants that Member or non-Member the ability
to operate a specific application, such as FIX order entry or PITCH
data receipt. The Exchange's Multicast PITCH data feed is available
from two primary feeds, identified as the ``A feed'' and the ``C
feed'', which contain the same information but differ only in the way
such feeds are received. The Exchange also offers two redundant feeds,
identified as the ``B feed'' and the ``D feed''. Logical port fees are
limited to logical ports in the Exchange's primary data center and no
logical port fees are assessed for redundant secondary data center
ports. The Exchange assesses the monthly per logical port fees to all
Member's and non-Member's logical ports.
    The Exchange proposes to clarify within its fee schedule how
monthly fees for logical ports may be pro-rated. As proposed, new
requests will be pro-rated for the first month of service. Cancellation
requests are billed in full month increments as firms are required to
pay for the service for the remainder of the month, unless the session
is terminated within the first month of service.
Implementation Date
    The Exchange proposes to implement these amendments to its fee
schedule on August 1, 2016.
2. Statutory Basis
    The Exchange believes that the proposed rule change is consistent
with the requirements of the Act and the rules and regulations
thereunder that are applicable to a national securities exchange, and,
in particular, with the requirements of section 6 of the Act.\6\
Specifically, the Exchange believes that the proposed rule change is
consistent with section 6(b)(4) of the Act,\7\ in that it provides for
the equitable allocation of reasonable dues, fees and other charges
among members and other persons using any facility or system which the
Exchange operates or controls. The proposed rule change seeks to
provide clarity to subscribers regarding the Exchange's pro-rata
billing policy for logical ports by describing how logical port fees
may be pro-rated for a new request and upon cancellation. The Exchange
believes that the proposed pro-rata billing of fees for logical ports
is reasonable in that it is similar to how port fees are pro-rated by
the Nasdaq Stock Market LLC (``Nasdaq'').\8\
---------------------------------------------------------------------------

    \6\ 15 U.S.C. 78f.
    \7\ 15 U.S.C. 78f(b)(4).
    \8\ See Nasdaq Price List--Trade Connectivity available at
http://www.nasdaqtrader.com/Trader.aspx?id=PriceListTrading2#connectivity. The Exchange notes
that, unlike as proposed by the Exchange, Nasdaq does not pro-rate
where the session is terminated within the first month of service.
---------------------------------------------------------------------------

    The Exchange operates in a highly competitive market in which
exchanges offer connectivity services as a means to facilitate the
trading activities of Members and other participants. Accordingly, fees
charged for connectivity are constrained by the active competition for
the order flow of such participants as well as demand for market data
from the Exchange. If a particular exchange charges excessive fees for
connectivity, affected Members will opt to terminate their connectivity
arrangements with that exchange, and adopt a possible range of
alternative strategies, including routing to the applicable exchange
through another participant or market center or taking that exchange's
data indirectly. Accordingly, an exchange charging excessive fees would
stand to lose not only connectivity revenues, but also revenues
associated with the execution of orders routed to it by affected
members, and, to the extent applicable, market data revenues. The
Exchange believes that this competitive dynamic imposes powerful
restraints on the ability of any exchange to charge unreasonable fees
for connectivity.

B. Self-Regulatory Organization's Statement on Burden on Competition

    The Exchange believes its proposed amendment to its fee schedule
would not impose any burden on competition that is not necessary or
appropriate in furtherance of the purposes of the Act in that it is
simply designed to set forth the Exchange's pro-rata billing for
logical ports and is similar to that currently offered by one of the
Exchange's competitors.\9\ Members may opt to disfavor the Exchange's
pricing if they believe that alternatives offer them better value.
Accordingly, the Exchange does not believe that the proposed change
will impair the ability of Members or competing venues to maintain
their competitive standing in the financial markets.
---------------------------------------------------------------------------

    \9\ Id.
---------------------------------------------------------------------------

    The Exchange believes that fees for connectivity are constrained by
the robust competition for order flow among exchanges and non-exchange
markets. Further, excessive fees for connectivity, including logical
port fees, would serve to impair an exchange's ability to compete for
order flow rather than burdening competition. The Exchange also does
not believe the proposed rule change would impact intramarket
competition as it would apply to all Members and non-Members equally.

C. Self-Regulatory Organization's Statement on Comments on the Proposed
Rule Change Received From Members, Participants, or Others

    The Exchange has not solicited, and does not intend to solicit,
comments on this proposed rule change. The Exchange has not received
any written comments from members or other interested parties.

III. Date of Effectiveness of the Proposed Rule Change and Timing for
Commission Action

    The foregoing rule change has become effective pursuant to section
19(b)(3)(A) of the Act \10\ and paragraph (f) of Rule 19b-4
thereunder.\11\ At any time within 60 days of the filing of the
proposed rule change, the Commission summarily may temporarily suspend
such rule change if it appears to the Commission that such action is
necessary or appropriate in the public interest, for the protection of
investors, or otherwise in furtherance of the purposes of the Act.
---------------------------------------------------------------------------

    \10\ 15 U.S.C. 78s(b)(3)(A).
    \11\ 17 CFR 240.19b-4(f).

---------------------------------------------------------------------------

IV. Solicitation of Comments

    Interested persons are invited to submit written data, views, and
arguments concerning the foregoing, including whether the proposed rule
change is consistent with the Act. Comments may be submitted by any of
the following methods:

Electronic Comments

     Use the Commission's Internet comment form (http://www.sec.gov/rules/sro.shtml); or
     Send an email to<EMAIL_ADDRESS>Please include
File Number SR-BatsEDGA-2016-18 on the subject line.

Paper Comments

     Send paper comments in triplicate to Secretary, Securities
and Exchange Commission, 100 F Street NE., Washington, DC 20549-1090.

All submissions should refer to File Number SR-BatsEDGA-2016-18. This
file number should be included on the subject line if email is used. To
help the Commission process and review your comments more efficiently,
please use only one method. The Commission will post all comments on
the Commission's Internet Web site (http://www.sec.gov/rules/sro.shtml). Copies of the submission, all subsequent amendments, all
written statements with respect to the proposed rule change that are
filed with the Commission, and all written communications relating to
the proposed rule change between the Commission and any person, other
than those that may be withheld from the public in accordance with the
provisions of 5 U.S.C. 552, will be available for Web site viewing and
printing in the Commission's Public Reference Room, 100 F Street NE.,
Washington, DC 20549, on official business days between the hours of
10:00 a.m. and 3:00 p.m. Copies of the filing also will be available
for inspection and copying at the principal office of the Exchange. All
comments received will be posted without change; the Commission does
not edit personal identifying information from submissions. You should
submit only information that you wish to make available publicly. All
submissions should refer to File Number SR-BatsEDGA-2016-18, and should
be submitted on or before September 6, 2016.

    For the Commission, by the Division of Trading and Markets,
pursuant to delegated authority.\12\
---------------------------------------------------------------------------

    \12\ 17 CFR 200.30-3(a)(12).
---------------------------------------------------------------------------

Robert W. Errett,
Deputy Secretary.
[FR Doc. 2016-19445 Filed 8-15-16; 8:45 am]
BILLING CODE 8011-01-P


####################################################################################################
## Lower Delaware River WQS Benefits Analysis - WQI WTP
####################################################################################################

####################################################################################################
# PURPOSE: Estimates benefits for WQI changes, at the Census block group (CBG) level, for the Lower
#          Delaware River; WQI values for six different scenarios each for actual and design flows
# By: Jessica Balukas, ICF
# Last Edited: 12/04/2023
#   11/20/23: Replaced 1.7% discount rate (proposed Circular A-4 Revisions) with 2% (final Circular A-4 Revisions)
#   12/04/23: Updated WQI results, based on revised criteria: 10th percentile: 66%, 50th percentile: 74%
#                                                             10th percentile = 5.4 mg/L, 50th percentile = 6.1 mg/L
####################################################################################################

pacman::p_load(dplyr, reshape2, stringr, data.table, pastecs, openxlsx)

####################################################################################################
## Set macros and working directory
####################################################################################################
Scen_RunDate <-"2023-12-04"
# Define the number of analysis periods
yrsc_30 = 30
# Define the CPI adjustment factor to convert from 2019$ to 2022$
cpi_2022 = 292.655/255.657
# Define the CPI adjustment factor to convert 2021$ (from 2021 ACS) back to 2019$ (income variable to match the metadata year)
cpi_2019 = 255.657/270.970
# define the 3% and 7% annualization factor to convert NPV to annualized values, function assumes payment at beginning of period
af_2_30 = (1/(((1-(1/(1+0.02)**(yrsc_30-1)))/0.02)+1))
af_3_30 = (1/(((1-(1/(1+0.03)**(yrsc_30-1)))/0.03)+1))
af_7_30 = (1/(((1-(1/(1+0.07)**(yrsc_30-1)))/0.07)+1))
# Define low and high WQI changes
WQch_l = 7
WQch_h = 20
lnWQch_l = log(WQch_l)
lnWQch_h = log(WQch_h)
# Define discount year
disc_year = 2024
gamefish = 0.190 #Set based on desired run; options are 0, 1, and 0.190 (mean from the meta-data)

# Set file paths:
# input path:
input_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/WQI/WTP/Inputs/"
# WQI input path:
WQI_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/WQI/R_programs/Outputs/"
# GIS input path:
GIS_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/GIS/Data/R_programs/Outputs/"
# output path:
output_path <- "C:/Users/40179/ICF/CWA Anniversary & Econ Support - General/06_Technical Support for Economic Analysis/TD3_Delaware River WQS/WQI/WTP/Outputs/"

##########################################################################################
## Import all data files used throughout the code
##########################################################################################

# import CBG-level 2021 ACS data (population, median housheold income, average household size)
CBG_2021ACS <- read.csv(paste0(GIS_path,"CBG_in_FMA_2021_5Yr_ACS.csv"), header=TRUE)

# import CBG-level sub_proportion calculations
sub_proportion <- read.csv(paste0(GIS_path,"Sub_Prop_Table.csv"), header=TRUE)

# Import the csv files with WQI values
wqi_actual <- read.csv(paste0(WQI_path,"2019_ActualDERiver_DOWQS_WQI_PercChange_23-12-04.csv"), header = TRUE)
wqi_design <- read.csv(paste0(WQI_path,"2019_DesignDERiver_DOWQS_WQI_PercChange_23-12-04.csv"), header = TRUE)

# Import text files of model coefficients (model 1 and model 2 estimated in STATA, 2022 update)
MRM2 <- read.table(paste0(input_path,"MRM2_Wtd_coef_2022.txt"), header = TRUE)
MRM2S_log <- read.table(paste0(input_path,"MRM2S_log_coef_2022.txt"), header = TRUE)

# Import county-level, SEDAC population growth rates
county_pop_rel2021 <- read.csv(paste0(input_path,"LDR_county_pop_rel2021_2023.07.28.csv"), header=TRUE)
county_pop_rel2021$GEOID <- str_pad(county_pop_rel2021$GEOID, width=5, side="left", pad="0")

##########################################################################################
## Prepare WQI datasets
##########################################################################################

# Isolate baseline WQI and add as a separate column
wqi_actual_baseline <- wqi_actual[ which(wqi_actual$Scenario=='Baseline'),]
wqi_design_baseline <- wqi_design[ which(wqi_design$Scenario=='Baseline'),]
colnames(wqi_actual_baseline)[colnames(wqi_actual_baseline) == 'NARS_WQI'] <- 'WQI_base'
colnames(wqi_design_baseline)[colnames(wqi_design_baseline) == 'NARS_WQI'] <- 'WQI_base'
wqi_actual$WQI_base <- wqi_actual_baseline$WQI_base
wqi_design$WQI_base <- wqi_design_baseline$WQI_base
rm(wqi_actual_baseline, wqi_design_baseline)

# Create list
dataset_list <- list(wqi_actual, wqi_design)

for (i in seq_along(dataset_list)) {
  # Create Scen_Num variable to retain final scenarios (Note: Scen_Num 5 is the scenario presented in the Economic Analysis)
  dataset_list[[i]]$Scen_Num <- ifelse(dataset_list[[i]]$Scenario=="HADO_AsIs",1,
                                       ifelse(dataset_list[[i]]$Scenario=="Sensitivity_Scenario_6",2,
                                              ifelse(dataset_list[[i]]$Scenario=="Sensitivity_Scenario_5",3,
                                                     ifelse(dataset_list[[i]]$Scenario=="EPA_Standard",4,
                                                            ifelse(dataset_list[[i]]$Scenario=="Sensitivity_Scenario_4",5,
                                                                   ifelse(dataset_list[[i]]$Scenario=="Sensitivity_Scenario_3",6,7))))))

  dataset_list[[i]] <- dataset_list[[i]][ which(dataset_list[[i]]$Scen_Num!=7),]
  # Remove columns for individual parameters, SPARROW-based WQI values, change, and percent change
  dataset_list[[i]] <- dataset_list[[i]][c(-3:-12,-14:-17)]

  # Rename WQI variable to WQI_scen
  colnames(dataset_list[[i]])[colnames(dataset_list[[i]]) == 'NARS_WQI'] <- 'WQI_scen'
}

wqi_actual_final <- as.data.frame(dataset_list[[1]])
wqi_design_final <- as.data.frame(dataset_list[[2]])
rm(dataset_list, wqi_actual, wqi_design)

##########################################################################################
## Prep and merge 2021ACS and pop_rel2021 datasets
##########################################################################################

# Subset sub_proportion to needed variables only
sub_proportion <- sub_proportion[c(-1, -3,-4)]

# Merge CBG_2021ACS and sub_proportion
CBG_2021ACS <- merge(CBG_2021ACS, sub_proportion, by=c("GEOID"), all.x=TRUE)

# Create county ID in CBG_2021ACS
CBG_2021ACS <- CBG_2021ACS %>%
  mutate(GEOID_COUNTY = substr(GEOID, 1, 5))
CBG_2021ACS$GEOID <- str_pad(CBG_2021ACS$GEOID, width=12, side="left", pad="0")

# Rename GEOID in county_pop_rel2021
colnames(county_pop_rel2021)[colnames(county_pop_rel2021) == 'GEOID'] <- 'GEOID_COUNTY'

# Merge CBG_2021ACS and county_pop_rel2021
poprel2021_CBG2021ACS <- merge(CBG_2021ACS, county_pop_rel2021, by=c("GEOID_COUNTY"), all.x=TRUE)

# Remove years that are not part of the 2024-2053 30-year analysis period (2021-2023, 2054-2100)
poprel2021_CBG2021ACS <- poprel2021_CBG2021ACS[ which(poprel2021_CBG2021ACS$Year>2023 & poprel2021_CBG2021ACS$Year<2054),]

##########################################################################################
## Prep datasets for WTP calcs (actual, design)
##########################################################################################

# Merge with WQI datasets
wqi_actual_final_merge <- cross_join(poprel2021_CBG2021ACS, wqi_actual_final)
wqi_design_final_merge <- cross_join(poprel2021_CBG2021ACS, wqi_design_final)

# Change WQI_scen to equal WQI_base for years 2024-2028 (no benefits during technology implementation years, only during O&M years)
wqi_actual_final_merge$WQI_scen <- ifelse(wqi_actual_final_merge$Year<2029,wqi_actual_final_merge$WQI_base, wqi_actual_final_merge$WQI_scen)
wqi_design_final_merge$WQI_scen <- ifelse(wqi_design_final_merge$Year<2029,wqi_design_final_merge$WQI_base, wqi_design_final_merge$WQI_scen)

# Remove interim datasets that are no longer needed
rm(CBG_2021ACS, county_pop_rel2021, wqi_actual_final, wqi_design_final, poprel2021_CBG2021ACS, sub_proportion)

# Create list
dataset_list <- list(wqi_actual_final_merge, wqi_design_final_merge)

# Calculate number of households per year, 2024-2053
for (i in seq_along(dataset_list)) {
  dataset_list[[i]]$pop_yr <- dataset_list[[i]]$POPULATION*dataset_list[[i]]$pop_rel2021
  dataset_list[[i]]$hhn_yr <- round(dataset_list[[i]]$pop_yr/dataset_list[[i]]$HOUSEHOLD_SIZE)
# Create variables needed for the WQ meta-analysis
  dataset_list[[i]]$lnincome1_val <- log(dataset_list[[i]]$MED_INC)*cpi_2019 # convert to 2019$, matching dollar year of meta-data
  dataset_list[[i]]$OneShotVal_val <- 1
  dataset_list[[i]]$lnyear_val <- 3.6109179 # Natural log of the maximum value of the year index value for studies in the metadata
  dataset_list[[i]]$volunt_val <- 0
  dataset_list[[i]]$tax_only_val <- 1
  dataset_list[[i]]$user_cost_val <- 0
  dataset_list[[i]]$RUM_val <- 1
  dataset_list[[i]]$non_reviewed_val <- 0
  dataset_list[[i]]$thesis_val <- 0
  dataset_list[[i]]$lump_sum_val <- 0
  dataset_list[[i]]$census_south_val <- 0
  dataset_list[[i]]$census_midwest_val <- 0
  dataset_list[[i]]$census_west_val <- 0
  dataset_list[[i]]$non_users_val <- 0
  dataset_list[[i]]$swim_use_val <- 0
  dataset_list[[i]]$gamefish_val <- gamefish
  dataset_list[[i]]$ln_ar_agr_val <- -1.721003
  dataset_list[[i]]$ln_ar_ratio1_val <- 2.427232
  colnames(dataset_list[[i]])[colnames(dataset_list[[i]]) == 'sub_prop'] <- 'sub_proportion_val'
  dataset_list[[i]]$IBI_val <- 0
  dataset_list[[i]]$lnWQch_l_val <- lnWQch_l
  dataset_list[[i]]$lnWQch_h_val <- lnWQch_h

  # Add midpoint of WQ change for each analytic scenario
  dataset_list[[i]]$Q_val <- (dataset_list[[i]]$WQI_base + dataset_list[[i]]$WQI_scen)/2
  dataset_list[[i]]$ln_Q_val <- log(dataset_list[[i]]$Q_val)

  # Add water quality change variable
  dataset_list[[i]]$WQI_ch <- dataset_list[[i]]$WQI_scen - dataset_list[[i]]$WQI_base
}

wqi_actual_dataset <- as.data.frame(dataset_list[[1]])
wqi_design_dataset <- as.data.frame(dataset_list[[2]])
remove(dataset_list)

##########################################################################################
## ESTIMATE BENEFITS USING MEAN MODEL COEFFICIENTS
##########################################################################################

### Calculate per household WTP
dataset_list2 <- list(wqi_actual_dataset, wqi_design_dataset)

for (i in seq_along(dataset_list2)) {

  # MRM2
  dataset_list2[[i]]$resid_var_over_2_MRM2 <- (MRM2$residual**2)/2;
  dataset_list2[[i]]$WTP_hh_MRM2 <- exp(MRM2$OneShotVal*dataset_list2[[i]]$OneShotVal_val + MRM2$tax_only*dataset_list2[[i]]$tax_only_val + MRM2$user_cost*dataset_list2[[i]]$user_cost_val + MRM2$RUM*dataset_list2[[i]]$RUM_val +
                                                      MRM2$IBI*dataset_list2[[i]]$IBI_val + MRM2$thesis*dataset_list2[[i]]$thesis_val + MRM2$lnyear*dataset_list2[[i]]$lnyear_val + MRM2$volunt*dataset_list2[[i]]$volunt_val +
                                                      MRM2$non_reviewed*dataset_list2[[i]]$non_reviewed_val + MRM2$lump_sum*dataset_list2[[i]]$lump_sum_val + MRM2$census_south*dataset_list2[[i]]$census_south_val +
                                                      MRM2$census_midwest*dataset_list2[[i]]$census_midwest_val + MRM2$census_west*dataset_list2[[i]]$census_west_val + MRM2$nonusers*dataset_list2[[i]]$non_users_val +
                                                      MRM2$lnincome*dataset_list2[[i]]$lnincome1_val + MRM2$swim_use*dataset_list2[[i]]$swim_use_val + MRM2$gamefish*dataset_list2[[i]]$gamefish_val + MRM2$ln_ar_agr*dataset_list2[[i]]$ln_ar_agr_val +
                                                      MRM2$ln_ar_ratio*dataset_list2[[i]]$ln_ar_ratio1_val + MRM2$sub_proportion*dataset_list2[[i]]$sub_proportion_val + MRM2$ln_Q*dataset_list2[[i]]$ln_Q_val + MRM2$intercept +
                                                      dataset_list2[[i]]$resid_var_over_2_MRM2) * dataset_list2[[i]]$WQI_ch

  # MRM2S - low change
  dataset_list2[[i]]$resid_var_over_2_MRM2S <- (MRM2S_log$residual**2)/2;
  dataset_list2[[i]]$WTP_hh_lnWQch_l <- exp(MRM2S_log$OneShotVal*dataset_list2[[i]]$OneShotVal_val + MRM2S_log$tax_only*dataset_list2[[i]]$tax_only_val + MRM2S_log$user_cost*dataset_list2[[i]]$user_cost_val +
                                                          MRM2S_log$RUM*dataset_list2[[i]]$RUM_val + MRM2S_log$IBI*dataset_list2[[i]]$IBI_val + MRM2S_log$thesis*dataset_list2[[i]]$thesis_val + MRM2S_log$lnyear*dataset_list2[[i]]$lnyear_val +
                                                          MRM2S_log$volunt*dataset_list2[[i]]$volunt_val + MRM2S_log$non_reviewed*dataset_list2[[i]]$non_reviewed_val + MRM2S_log$lump_sum*dataset_list2[[i]]$lump_sum_val +
                                                          MRM2S_log$census_south*dataset_list2[[i]]$census_south_val + MRM2S_log$census_midwest*dataset_list2[[i]]$census_midwest_val + MRM2S_log$census_west*dataset_list2[[i]]$census_west_val +
                                                          MRM2S_log$nonusers*dataset_list2[[i]]$non_users_val + MRM2S_log$lnincome*dataset_list2[[i]]$lnincome1_val + MRM2S_log$swim_use*dataset_list2[[i]]$swim_use_val +
                                                          MRM2S_log$gamefish*dataset_list2[[i]]$gamefish_val + MRM2S_log$ln_ar_agr*dataset_list2[[i]]$ln_ar_agr_val + MRM2S_log$ln_ar_ratio*dataset_list2[[i]]$ln_ar_ratio1_val +
                                                          MRM2S_log$sub_proportion*dataset_list2[[i]]$sub_proportion_val + MRM2S_log$ln_Q*dataset_list2[[i]]$ln_Q_val + MRM2S_log$lnquality_ch*dataset_list2[[i]]$lnWQch_l_val +
                                                          MRM2S_log$intercept + dataset_list2[[i]]$resid_var_over_2_MRM2S) * dataset_list2[[i]]$WQI_ch

  # MRM2S - high change
  dataset_list2[[i]]$WTP_hh_lnWQch_h <- exp(MRM2S_log$OneShotVal*dataset_list2[[i]]$OneShotVal_val + MRM2S_log$tax_only*dataset_list2[[i]]$tax_only_val + MRM2S_log$user_cost*dataset_list2[[i]]$user_cost_val +
                                                          MRM2S_log$RUM*dataset_list2[[i]]$RUM_val + MRM2S_log$IBI*dataset_list2[[i]]$IBI_val + MRM2S_log$thesis*dataset_list2[[i]]$thesis_val + MRM2S_log$lnyear*dataset_list2[[i]]$lnyear_val +
                                                          MRM2S_log$volunt*dataset_list2[[i]]$volunt_val + MRM2S_log$non_reviewed*dataset_list2[[i]]$non_reviewed_val + MRM2S_log$lump_sum*dataset_list2[[i]]$lump_sum_val +
                                                          MRM2S_log$census_south*dataset_list2[[i]]$census_south_val + MRM2S_log$census_midwest*dataset_list2[[i]]$census_midwest_val + MRM2S_log$census_west*dataset_list2[[i]]$census_west_val +
                                                          MRM2S_log$nonusers*dataset_list2[[i]]$non_users_val + MRM2S_log$lnincome*dataset_list2[[i]]$lnincome1_val + MRM2S_log$swim_use*dataset_list2[[i]]$swim_use_val +
                                                          MRM2S_log$gamefish*dataset_list2[[i]]$gamefish_val + MRM2S_log$ln_ar_agr*dataset_list2[[i]]$ln_ar_agr_val + MRM2S_log$ln_ar_ratio*dataset_list2[[i]]$ln_ar_ratio1_val +
                                                          MRM2S_log$sub_proportion*dataset_list2[[i]]$sub_proportion_val + MRM2S_log$ln_Q*dataset_list2[[i]]$ln_Q_val + MRM2S_log$lnquality_ch*dataset_list2[[i]]$lnWQch_h_val +
                                                          MRM2S_log$intercept + dataset_list2[[i]]$resid_var_over_2_MRM2S) * dataset_list2[[i]]$WQI_ch

### Calculate total WTP
  dataset_list2[[i]]$cpi_2022 <- cpi_2022
  dataset_list2[[i]]$af_2_30 <- af_2_30
  dataset_list2[[i]]$af_3_30 <- af_3_30
  dataset_list2[[i]]$af_7_30 <- af_7_30
  dataset_list2[[i]]$disc_year <- disc_year
  dataset_list2[[i]]$WTP_hh_MRM2 <- dataset_list2[[i]]$WTP_hh_MRM2*dataset_list2[[i]]$cpi_2022
  dataset_list2[[i]]$WTP_tot_MRM2 <- dataset_list2[[i]]$WTP_hh_MRM2*dataset_list2[[i]]$hhn_yr
  dataset_list2[[i]]$WTP_tot2_MRM2 <- dataset_list2[[i]]$WTP_tot_MRM2*(1/(1.02**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot3_MRM2 <- dataset_list2[[i]]$WTP_tot_MRM2*(1/(1.03**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot7_MRM2 <- dataset_list2[[i]]$WTP_tot_MRM2*(1/(1.07**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_hh_lnWQch_l <- dataset_list2[[i]]$WTP_hh_lnWQch_l*dataset_list2[[i]]$cpi_2022
  dataset_list2[[i]]$WTP_tot_lnWQch_l <- dataset_list2[[i]]$WTP_hh_lnWQch_l*dataset_list2[[i]]$hhn_yr
  dataset_list2[[i]]$WTP_tot2_lnWQch_l <- dataset_list2[[i]]$WTP_tot_lnWQch_l*(1/(1.02**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot3_lnWQch_l <- dataset_list2[[i]]$WTP_tot_lnWQch_l*(1/(1.03**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot7_lnWQch_l <- dataset_list2[[i]]$WTP_tot_lnWQch_l*(1/(1.07**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_hh_lnWQch_h <- dataset_list2[[i]]$WTP_hh_lnWQch_h*dataset_list2[[i]]$cpi_2022
  dataset_list2[[i]]$WTP_tot_lnWQch_h <- dataset_list2[[i]]$WTP_hh_lnWQch_h*dataset_list2[[i]]$hhn_yr
  dataset_list2[[i]]$WTP_tot2_lnWQch_h <- dataset_list2[[i]]$WTP_tot_lnWQch_h*(1/(1.02**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot3_lnWQch_h <- dataset_list2[[i]]$WTP_tot_lnWQch_h*(1/(1.03**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
  dataset_list2[[i]]$WTP_tot7_lnWQch_h <- dataset_list2[[i]]$WTP_tot_lnWQch_h*(1/(1.07**(dataset_list2[[i]]$Year-dataset_list2[[i]]$disc_year)))
}

actual_wtp <- as.data.frame(dataset_list2[[1]])
design_wtp <- as.data.frame(dataset_list2[[2]])
remove(dataset_list2)

##########################################################################################
## Compile annualized wtp tables for actual and design flows
##########################################################################################

# Annualized Values
actual_wtp_annualized <- actual_wtp %>%
  group_by(GEOID, Scen_Num) %>%
  summarise(hhn_avg = mean(hhn_yr),
            across(starts_with("WTP_hh_"), list(avg = mean)),
            across(starts_with("WTP_tot2_"), list(tpv2 = sum)),
            across(starts_with("WTP_tot3_"), list(tpv3 = sum)),
            across(starts_with("WTP_tot7_"), list(tpv7 = sum))) %>%
  mutate(ann2_MRM2 = WTP_tot2_MRM2_tpv2*af_2_30) %>%
  mutate(ann2_lnWQch_l = WTP_tot2_lnWQch_l_tpv2*af_2_30) %>%
  mutate(ann2_lnWQch_h = WTP_tot2_lnWQch_h_tpv2*af_2_30) %>%
  mutate(ann3_MRM2 = WTP_tot3_MRM2_tpv3*af_3_30) %>%
  mutate(ann3_lnWQch_l = WTP_tot3_lnWQch_l_tpv3*af_3_30) %>%
  mutate(ann3_lnWQch_h = WTP_tot3_lnWQch_h_tpv3*af_3_30) %>%
  mutate(ann7_MRM2 = WTP_tot7_MRM2_tpv7*af_7_30) %>%
  mutate(ann7_lnWQch_l = WTP_tot7_lnWQch_l_tpv7*af_7_30) %>%
  mutate(ann7_lnWQch_h = WTP_tot7_lnWQch_h_tpv7*af_7_30)

design_wtp_annualized <- design_wtp %>%
  group_by(GEOID, Scen_Num) %>%
  summarise(hhn_avg = mean(hhn_yr),
            across(starts_with("WTP_hh_"), list(avg = mean)),
            across(starts_with("WTP_tot2_"), list(tpv2 = sum)),
            across(starts_with("WTP_tot3_"), list(tpv3 = sum)),
            across(starts_with("WTP_tot7_"), list(tpv7 = sum))) %>%
  mutate(ann2_MRM2 = WTP_tot2_MRM2_tpv2*af_2_30) %>%
  mutate(ann2_lnWQch_l = WTP_tot2_lnWQch_l_tpv2*af_2_30) %>%
  mutate(ann2_lnWQch_h = WTP_tot2_lnWQch_h_tpv2*af_2_30) %>%
  mutate(ann3_MRM2 = WTP_tot3_MRM2_tpv3*af_3_30) %>%
  mutate(ann3_lnWQch_l = WTP_tot3_lnWQch_l_tpv3*af_3_30) %>%
  mutate(ann3_lnWQch_h = WTP_tot3_lnWQch_h_tpv3*af_3_30) %>%
  mutate(ann7_MRM2 = WTP_tot7_MRM2_tpv7*af_7_30) %>%
  mutate(ann7_lnWQch_l = WTP_tot7_lnWQch_l_tpv7*af_7_30) %>%
  mutate(ann7_lnWQch_h = WTP_tot7_lnWQch_h_tpv7*af_7_30)

# Total Values
actual_wtp_total <- actual_wtp_annualized %>%
  group_by(Scen_Num) %>%
  summarise(hhn_avg = sum(hhn_avg),
            across(starts_with("WTP_hh_"), list(total = mean)),
            across(starts_with("WTP_tot2_"), list(total = sum)),
            across(starts_with("WTP_tot3_"), list(total = sum)),
            across(starts_with("WTP_tot7_"), list(total = sum)),
            across(starts_with("ann2_"), list(total = sum)),
            across(starts_with("ann3_"), list(total = sum)),
            across(starts_with("ann7_"), list(total = sum)))

design_wtp_total <- design_wtp_annualized %>%
  group_by(Scen_Num) %>%
  summarise(hhn_avg = sum(hhn_avg),
            across(starts_with("WTP_hh_"), list(total = mean)),
            across(starts_with("WTP_tot2_"), list(total = sum)),
            across(starts_with("WTP_tot3_"), list(total = sum)),
            across(starts_with("WTP_tot7_"), list(total = sum)),
            across(starts_with("ann2_"), list(total = sum)),
            across(starts_with("ann3_"), list(total = sum)),
            across(starts_with("ann7_"), list(total = sum)))

##########################################################################################
## Export results for each model
##########################################################################################

require(openxlsx)
  list_of_datasets <- list("Actual_CBG" = actual_wtp_annualized, "Actual_Total" = actual_wtp_total,
                           "Design_CBG" = design_wtp_annualized, "Design_Total" = design_wtp_total)
  if (gamefish == 0) {
  write.xlsx(list_of_datasets, file = paste0(output_path,"WQI_WTP_LowerDelawareRiver_gamefish0_",Scen_RunDate,".xlsx"))
  }
  if (gamefish == 1) {
    write.xlsx(list_of_datasets, file = paste0(output_path,"WQI_WTP_LowerDelawareRiver_gamefish1_",Scen_RunDate,".xlsx"))
  }
  if (gamefish == 0.190) {
    write.xlsx(list_of_datasets, file = paste0(output_path,"WQI_WTP_LowerDelawareRiver_gamefishMean_",Scen_RunDate,".xlsx"))
  }


[Federal Register: November 29, 2010 (Volume 75, Number 228)]
[Notices]
[Page 73078-73080]
[DOCID:fr29no10-82]

-----------------------------------------------------------------------

ENVIRONMENTAL PROTECTION AGENCY

[EPA-HQ-ORD-2010-0919; FRL-9232-5]

Human Studies Review Board (HSRB); Notification of a Public
Teleconference To Review Draft Report From the October 27-28, 2010 HSRB
Meeting

AGENCY: Environmental Protection Agency (EPA).

ACTION: Notice.

-----------------------------------------------------------------------

SUMMARY: The EPA Human Studies Review Board (HSRB) announces a public
teleconference meeting to discuss its draft report from the October 27-
28, 2010 HSRB meeting.

DATES: The teleconference will be held on Monday, December 13, 2010
from 3-5 p.m. (Eastern Time).
    Location: The meeting will take place via telephone only.
    Meeting Access: For information on access or services for
individuals with disabilities, please contact Lu-Ann Kleibacker at
least ten business days prior to the meeting using the information
under FOR FURTHER INFORMATION CONTACT, so that appropriate arrangements
can be made.
    Procedures for Providing Public Input: Interested members of the
public may submit relevant written or oral comments for the HSRB to
consider during the advisory process. Additional information concerning
submission of relevant written or oral comments is provided in section
I, under subsection D, of this notice.

FOR FURTHER INFORMATION CONTACT: Members of the public who wish to
receive further information should contact Jim Downing at telephone
number:<PHONE_NUMBER>; fax:<PHONE_NUMBER>; e-mail address:
<EMAIL_ADDRESS>or Lu-Ann Kleibacker at telephone number: (202)
564-7189; fax:<PHONE_NUMBER>; e-mail address: kleibacker.lu-
<EMAIL_ADDRESS>mailing address: U.S. Environmental Protection Agency,
Office of the Science Advisor, Mail Code 8105R, 1200 Pennsylvania Ave.,
NW., Washington, DC 20460. General information concerning the EPA HSRB
can be found on the EPA Web site at http://www.epa.gov/osa/hsrb/.

ADDRESSES: Submit your written comments, identified by Docket ID No.
EPA-HQ-ORD-2010-0919, by one of the following methods: http://
www.regulations.gov: Follow the on-line instructions for submitting
comments.
    E-mail<EMAIL_ADDRESS>    Mail: ORD Docket, U.S. Environmental Protection Agency, Mail Code
28221T, 1200 Pennsylvania Ave., NW., Washington, DC 20460.

    Hand Delivery: EPA Docket Center (EPA/DC), Public Reading Room,
Infoterra Room (Room Number 3334), EPA West Building, 1301 Constitution
Ave., NW., Washington, DC 20460, Attention Docket ID No. EPA-ORD-2010-
0919. Deliveries are only accepted from 8:30 a.m. to 4:30 p.m., Monday
through Friday, excluding legal holidays. Special arrangements should
be made for deliveries of boxed information.
    Instructions: Direct your comments to Docket ID No. EPA-HQ-ORD-
2010-0919. EPA's policy is that all comments received will be included
in the public docket without change and may be made available online at
http://www.regulations.gov, including any personal information
provided, unless the comments includes information claimed to be
Confidential Business Information (CBI) or other information whose
disclosure is restricted by statute. Do not submit information that you
consider to be CBI or otherwise protected through http://
www.regulations.gov or e-mail. The http://www.regulations.gov Web site
is an ``anonymous access'' system, which means EPA will not know your
identity or contact information unless you provide it in the body of
your comment. If you submit an electronic comment, EPA recommends that
you include your name and other contact information in the body of your
comment and with any disk or CD-ROM you submit. If EPA cannot read your
comment due to technical difficulties and cannot contact you for
clarification, EPA may not be able to consider your comment. Electronic
files should avoid the use of special characters, any form of
encryption, and be free of any defects or viruses. If you send an e-
mail comment directly to EPA, without going through http://
www.regulations.gov, your e-mail address will be automatically captured
and included as part of the comment that is placed in the public docket
and made available on the Internet.

I. General Information

A. Does this action apply to me?

    This action is directed to the public in general. This action may,
however, be of interest to persons who conduct or assess human studies
on substances regulated by EPA or to persons who are or may be required
to conduct testing of chemical substances under the Federal Food, Drug,
and Cosmetic Act (FFDCA) or the Federal Insecticide, Fungicide, and
Rodenticide Act (FIFRA). Since other entities may also be interested,
the Agency has not attempted to describe all the specific entities that
may be affected by this notice. If you have any questions regarding the
applicability of this notice to a particular entity, consult the person
listed under FOR FURTHER INFORMATION CONTACT.

B. How can I access electronic copies of this document and other
related information?

    In addition to using regulations.gov, you may access this Federal
Register document electronically through the EPA Internet under the
Federal Register listings at http://www.epa.gov/fedrgstr/.
    Docket: All documents in the docket are listed in the index under
the docket number. Even though it will be listed by title in the index,
some information is not publicly available, e.g., CBI or other
information whose disclosure is restricted by statute. Copyright
material will be publicly available only in hard copy. Publicly
available docket materials are electronically available either through
http://www.regulations.gov or in hard copy at the ORD Docket, EPA/DC,
Public Reading Room, Infoterra Room (Room Number 3334), 1301
Constitution Ave., NW., Washington, DC. The Public Reading Room is open
from 8:30 a.m. to 4:30 p.m., Monday through Friday, excluding legal
holidays. The telephone number for the Public Reading Room is (202)
566-1744, and the telephone number for the ORD Docket is (202) 566-
1752.

C. What should I consider as I prepare my comments for EPA?

    You may find the following suggestions helpful for preparing your
comments:
    1. Explain your views as clearly as possible.
    2. Describe any assumptions that you used.
    3. Provide copies of any technical information and/or data you use
that support your views.
    4. Provide specific examples to illustrate your concerns and
suggest alternatives.
    5. To ensure proper receipt by EPA, be sure to identify the docket
ID number assigned to this action in the subject line on the first page
of your response. You may also provide the name, date and Federal
Register citation.

D. How may I participate in this meeting?

    You may participate in this meeting by following the instructions
in this section. To ensure proper receipt by EPA, it is imperative that
you identify docket ID number EPA-HQ-ORD-2010-0919 in the subject line
on the first page of your request.
    1. Oral comments. Requests to present oral comments will be
accepted up to December 6, 2010. To the extent that time permits,
interested persons who have not pre-registered may be permitted by the
HSRB Chair to present oral comments at the meeting. Each individual or
group wishing to make brief oral comments to the HSRB is strongly
advised to submit their request (preferably via e-mail) to Lu-Ann
Kleibacker listed under FOR FURTHER INFORMATION CONTACT no later than
noon, Eastern Time, December 6, 2010 in order to be included on the
meeting agenda and to provide sufficient time for the HSRB Chair and
HSRB Designated Federal Official to review the meeting agenda to
provide an appropriate public comment period. The request should
identify the name of the individual making the presentation and the
organization (if any) the individual will represent. Oral comments
before the HSRB are limited to five minutes per individual or
organization. Please note that this includes all individuals appearing
either as part of, or on behalf of, an organization. While it is our
intent to hear a full range of oral comments on the science and ethics
issues under discussion, it is not our intent to permit organizations
to expand the time limitations by having numerous individuals sign up
separately to speak on their behalf. If additional time is available,
public comments may be possible.
    2. Written comments. Although you may submit written comments at
any time, for the HSRB to have the best opportunity to review and
consider your comments as it deliberates on its report, you should
submit your comments at least five business days prior to the beginning
of this teleconference. If you submit comments after this date, those
comments will be provided to the Board members, but you should
recognize that the Board members may not have adequate time to consider
those comments prior to making a decision. Thus, if you plan to submit
written comments, the Agency strongly encourages you to submit such
comments no later than noon, Eastern Time, December 6, 2010. You should
submit your comments using the instructions in section I, under
subsection C, of this notice. In addition, the Agency also requests
that persons submitting comments directly to the docket also provide a
copy of their comments to Lu-Ann Kleibacker or Jim Downing listed under
FOR FURTHER INFORMATION CONTACT. There is no limit

on the length of written comments for consideration by the HSRB.

E. Background

    The EPA Human Studies Review Board will be reviewing its draft
report from the October 27-28, 2010 HSRB meeting. The Board may also
discuss planning for future HSRB meetings. Background on the October
27-28, 2010 HSRB meeting can be found at Federal Register 75 193, 61748
(October 6, 2010) and at the HSRB Web site http://www.epa.gov/osa/
hsrb/. The October 27-28, 2010 meeting draft report is now available.
You may obtain electronic copies of this document and certain other
related documents that might be available electronically from the
http://www.regulations.gov Web site and the HSRB Internet home page at
http://www.epa.gov/osa/hsrb/. For questions on document availability or
if you do not have access to the Internet, consult the person listed
under FOR FURTHER INFORMATION CONTACT.

    Dated: November 19, 2010.
Paul T. Anastas,
EPA Science Advisor.
[FR Doc. 2010-29814 Filed 11-26-10; 8:45 am]
BILLING CODE 6560-50-P