Влияние структурного капитала компании как компонента интеллектуального капитала на затраты на собственный капитал

Формирование затрат на собственный капитал как важный раздел корпоративных финансов. Обзор моделей ценообразования активов. Методология исследования влияния инновационного капитала на затраты на собственный капитал. Измерение инновационного капитала.

Рубрика Финансы, деньги и налоги
Вид дипломная работа
Язык русский
Дата добавления 30.08.2016
Размер файла 495,9 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

av. r2 < - rowMeans (r2. r2mat)

##########################################################

alha. panel < - coefmat. panel [,1]

market. panel < - coefmat. panel [, 2]

smb. panel < - coefmat. panel [, 3]

hml. panel < - coefmat. panel [, 4]

licmhic. panel < - coefmat. panel [, 5]

y. panel < - returns. panel [, 1]

eq. panel < - glm (y. panel ~ market. panel + smb. panel + hml. panel + licmhic. panel)

(eq. panel$coefficients+1) ^12-1

temp < - summary (eq. panel) $coef [, 1]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 2]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 3]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 4]

finreg. mat < - rbind (finreg. mat, temp)

Программный код R для файлов с данными по России (8 портфелей).

start. obs < - 1

window < - 36 #set window size

step < - 1 #set srep size

file. length < - nrow (Data) - start. obs + 1 #get file length

num. rolls < - round ( (file. length-window) /step) #get number of rolls

premiums. mat < - matrix (ncol=5, nrow=0)

colnames (premiums. mat) < - c ("Intercept", "Market", "SMB", "HML", "LicMHic")

pvalues2. mat < - matrix (ncol=5, nrow=0)

colnames (pvalues2. mat) < - c ("Intercept", "Market", "SMB", "HML", "LicMHic")

intercept. coefmat < - matrix (ncol=0, nrow=8)

rownames (intercept. coefmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

market. coefmat < - matrix (ncol=0, nrow=8)

rownames (market. coefmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

smb. coefmat < - matrix (ncol=0, nrow=8)

rownames (smb. coefmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

hml. coefmat < - matrix (ncol=0, nrow=8)

rownames (hml. coefmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

licmhic. coefmat < - matrix (ncol=0, nrow=8)

rownames (licmhic. coefmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

intercept. tstatmat < - matrix (ncol=0, nrow=8)

rownames (intercept. tstatmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

market. tstatmat < - matrix (ncol=0, nrow=8)

rownames (market. tstatmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

smb. tstatmat < - matrix (ncol=0, nrow=8)

rownames (smb. tstatmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

hml. tstatmat < - matrix (ncol=0, nrow=8)

rownames (hml. tstatmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

licmhic. tstatmat < - matrix (ncol=0, nrow=8)

rownames (licmhic. tstatmat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

r2. r2mat < - matrix (ncol=0, nrow=8)

rownames (r2. r2mat) < - c ("LicHS", "LicHB", "LicLS", "LicLB", "HicHS", "HicHB", "HicLS", "HicLB")

finreg. mat < - matrix (ncol=5,nrow=0)

colnames (finreg. mat) < - c ("Intercept", "Market", "SMB", "HML", "LicMHic")

temp. mat < - matrix (ncol=5,nrow=1)

av. coef. mat < - matrix (nrow=0, ncol=5)

colnames (av. coef. mat) < - c ("Intercept", "Market", "SMB", "HML", "LicMHic")

################

coefmat. panel < - matrix (nrow=0, ncol=5)

colnames (coefmat. panel) < - c ("Intercept", "Market", "SMB", "HML", "LicMHic")

returns. panel < - matrix (nrow=0, ncol=1)

colnames (returns. panel) < - c ("Average Return")

for (i in 1: num. rolls) {

coefmat < - matrix (nrow=0, ncol=5)

colnames (coefmat) < - c ("Intercept","Market", "SMB", "HML", "LicMHic")

av. return. mat < - matrix (nrow=0, ncol=1)

tstat. mat < - matrix (nrow=0, ncol=5)

pvalues1. mat < - matrix (nrow=0, ncol=5)

r2. mat < - matrix (nrow=0, ncol=1)

first. obs < - start. obs + (i - 1) *step

last. obs < - first. obs + window - 1

subdata < - Data [first. obs: last. obs,]

#data. y < - Y [first. obs: last. obs,]

rp < - subdata$Rp

smb < - subdata$SMB

hml < - subdata$HML

licmhic < - subdata$LicMHic

for (j in 1: 27) {

p. return < - subdata [, j+1] - subdata$RF

eq1 < - lm (p. return ~ rp + smb + hml + licmhic)

coefs1 < - eq1$coefficients

coefmat <-rbind (coefmat, coefs1)

pvalues1 < - summary (eq1) $coef [,4]

pvalues1. mat < - rbind (pvalues1. mat, pvalues1)

av. return. mat < - rbind (av. return. mat, mean (p. return))

tstat1 < - summary (eq1) $coef [,4]

tstat. mat < - rbind (tstat. mat, tstat1)

r2 < - summary (eq1) $r. squared

r2. mat < - rbind (r2. mat, r2)

coefmat. panel < - rbind (coefmat. panel, coefs1)

returns. panel < - rbind (returns. panel, mean (p. return))

}

rownames (coefmat) < - c ("LicHS", "LicHM", "LicHB", "LicMS", "LicMM", "LicMB", "LicLS", "LicLM", "LicLB", "MicHS", "MicHM", "MicHB", "MicMS", "MicMM", "MicMB", "MicLS", "MicLM", "MicLB", "HicHS", "HicHM", "HicHB", "HicMS", "HicMM", "HicMB", "HicLS", "HicLM", "HicLB")

rownames (pvalues1. mat) < - c ("LicHS", "LicHM", "LicHB", "LicMS", "LicMM", "LicMB", "LicLS", "LicLM", "LicLB", "MicHS", "MicHM", "MicHB", "MicMS", "MicMM", "MicMB", "MicLS", "MicLM", "MicLB", "HicHS", "HicHM", "HicHB", "HicMS", "HicMM", "HicMB", "HicLS", "HicLM", "HicLB")

intercept. coefmat < - cbind (intercept. coefmat, coefmat [,1])

market. coefmat < - cbind (market. coefmat, coefmat [,2])

smb. coefmat < - cbind (smb. coefmat, coefmat [,3])

hml. coefmat < - cbind (hml. coefmat, coefmat [,4])

licmhic. coefmat < - cbind (licmhic. coefmat, coefmat [,5])

intercept. tstatmat< - cbind (intercept. tstatmat, tstat. mat [,1])

market. tstatmat < - cbind (market. tstatmat, tstat. mat [,2])

smb. tstatmat < - cbind (smb. tstatmat, tstat. mat [,3])

hml. tstatmat < - cbind (hml. tstatmat, tstat. mat [,4])

licmhic. tstatmat < - cbind (licmhic. tstatmat, tstat. mat [,5])

r2. r2mat < - cbind (r2. r2mat, r2. mat)

av. return < - av. return. mat [,1]

rp. beta < - coefmat [, 2]

smb. beta < - coefmat [, 3]

hml. beta < - coefmat [, 4]

licmhic. beta < - coefmat [, 5]

eq3 < - lm (av. return ~ rp. beta + smb. beta + hml. beta + licmhic. beta)

premiums < - eq3$coefficients

premiums. mat < - rbind (premiums. mat, premiums)

pvalues2 < - summary (eq3) $coef [,4]

pvalues2. mat < - rbind (pvalues2. mat, pvalues2)

}

rownames (premiums. mat) < - c (1: num. rolls)

rownames (pvalues2. mat) < - c (1: num. rolls)

av. premiums < - colMeans (premiums. mat)

tstat. premium < - cbind (t. test (premiums. mat [, 2]) $statistic, t. test (premiums. mat [, 3]) $statistic,

t. test (premiums. mat [, 4]) $statistic, t. test (premiums. mat [, 5]) $statistic)

colnames (tstat. premium) < - c ("Market", "SMB", "HML", "LicMHic")

av. betas < - cbind (rowMeans (market. coefmat), rowMeans (smb. coefmat), rowMeans (hml. coefmat), rowMeans (licmhic. coefmat))

colnames (av. betas) < - c ("Market", "SMB", "HML", "LicMHic")

av. tstats < - cbind (rowMeans (market. tstatmat), rowMeans (smb. tstatmat), rowMeans (hml. tstatmat), rowMeans (licmhic. tstatmat))

colnames (av. tstats) < - c ("Market", "SMB", "HML", "LicMHic")

av. r2 < - rowMeans (r2. r2mat)

##########################################################

alha. panel < - coefmat. panel [,1]

market. panel < - coefmat. panel [, 2]

smb. panel < - coefmat. panel [, 3]

hml. panel < - coefmat. panel [, 4]

licmhic. panel < - coefmat. panel [, 5]

y. panel < - returns. panel [, 1]

eq. panel < - glm (y. panel ~ market. panel + smb. panel + hml. panel + licmhic. panel)

(eq. panel$coefficients+1) ^12-1

temp < - summary (eq. panel) $coef [, 1]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 2]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 3]

finreg. mat < - rbind (finreg. mat, temp)

temp < - summary (eq. panel) $coef [, 4]

finreg. mat < - rbind (finreg. mat, temp)

Размещено на Allbest.ru

...

Подобные документы

  • Состав и структура собственного капитала, особенности политики его формирования. Основной и оборотный собственный капитал, их составляющие. Оценка отдельных элементов и стоимость собственного капитала, главные критерии измерения его эффективности.

    реферат [59,1 K], добавлен 12.02.2015

  • Собственный капитал и его изучение с позиций финансового анализа. Сущность капитала предприятия. Экономические показатели эффективности использования собственного капитала. Направления повышения эффективности использования собственного капитала.

    курсовая работа [340,9 K], добавлен 26.02.2011

  • Основные этапы формирования собственного капитала предприятия, характеристика оценки его стоимости. Выбор наилучшего соотношения внутренних и внешних источников формирования собственного капитала фирмы. Паевой капитал и дополнительная эмиссия акций.

    презентация [972,7 K], добавлен 05.06.2015

  • Сущность, значение, состав и структура капитала. Характеристика политики формирования источников собственного финансового капитала фирмы. Определение роли его отдельных элементов. Некоторые современные методологические подходы к оценке его эффективности.

    реферат [41,2 K], добавлен 23.07.2014

  • Понятие, состав элементов и особенности формирования цены собственного капитала. Характеристика и проблемы управления внеоборотными активами. Исчисление цены отдельных элементов капитала. Определение оптимальной потребности во внеоборотных активах.

    контрольная работа [32,3 K], добавлен 18.07.2009

  • Сущность структуры капитала, концепции управления им. Методология расчета совокупного капитала. Анализ состава, структуры и коэффициентов собственного и заемного капитала ЗАО "Стирол Пак", основные направления повышения эффективности их использования.

    курсовая работа [72,5 K], добавлен 08.09.2010

  • Собственный капитал предприятия и порядок его формирования. Оценка организации учета собственного капитала ООО "Сибирская строительная компания". Анализ структуры собственного капитала, финансовой устойчивости. Мероприятия по финансовому оздоровлению.

    курсовая работа [143,5 K], добавлен 24.05.2014

  • Собственный капитал предприятия: определение и сущностные характеристики, структура. Задачи управления собственным капиталом. Организационно-экономическая характеристика ОАО "Пензпромстрой", повышение эффективности использования собственного капитала.

    дипломная работа [285,1 K], добавлен 26.01.2012

  • Долгосрочные источники финансирования. Сущность и состав собственного капитала предприятия. Экономическая целесообразность формирования и использования собственного капитала предприятия на примере ООО "СПК Анит". Проблемы управления собственным капиталом.

    курсовая работа [76,2 K], добавлен 21.05.2015

  • Экономическая сущность капитала предприятия, основные характеристики и принципы формирования. Понятие и состав собственного капитала. Процедура увеличения уставного капитала. Образование добавочных средств. Расчет поступлений от финансовой деятельности.

    курсовая работа [30,7 K], добавлен 26.11.2009

  • Состав и структура собственного капитала, политика формирования его источников и особенности поэлементной оценки. Механизм управления капиталом за счет эмиссии акций, на основе финансового левериджа и формирование нераспределенной прибыли ОАО "Лукойл".

    курсовая работа [383,6 K], добавлен 09.09.2010

  • Изучение состава, структуры капитала конкретного предприятия, рассмотрение различных подходов к определению оптимальной структуры капитала. Расчет соотношения собственного и заемного капитала, а также оптимальной структуры капитала данного предприятия.

    курсовая работа [85,6 K], добавлен 23.12.2012

  • Раскрытие содержания финансового, бухгалтерского и экономического подходов к сущности и структуре капитала предприятия. Понятие собственного капитала и определение его состава. Добавочный, резервный капитал, нераспределённая прибыль и целевые фонды фирм.

    презентация [469,7 K], добавлен 20.12.2012

  • Функционирование и использование капитала и имущества предприятия. Характеристика собственных средств предприятия. Анализ размещения и эффективности использования собственных средств предприятия. Инвестированный капитал, номинальная стоимость акций.

    курсовая работа [72,1 K], добавлен 07.06.2011

  • Основы структуры капитала предприятия: собственный капитал предприятия, заемные средства. Анализ структуры капитала ЗАО «Береговой». Анализ обеспеченности предприятия собственными оборотными средствами и оценка влияния факторов на величину их изменения.

    курсовая работа [64,6 K], добавлен 14.10.2007

  • Собственный капитал предприятия. Политика формирования собственных финансовых ресурсов. Эффективность финансового левериджа. Оценка стоимости отдельных элементов собственного капитала. Этапы разработки эффективной эмиссионной политики предприятия.

    контрольная работа [62,7 K], добавлен 13.04.2012

  • Понятие, сущность и функции финансов предприятия. Показатели, характеризующие финансовые ресурсы и собственный капитал организации. Краткое описание организации, оценка капитала и финансового состояния, улучшение управления финансовыми ресурсами.

    курсовая работа [358,9 K], добавлен 05.12.2014

  • Собственный капитал и его формирование. Коэффициент самофинансирования развития предприятия. Анализ формирования собственного капитала на примере ОАО «Птицефабрика». Расчет эффекта финансового рычага. Формирование собственных финансовых ресурсов.

    курсовая работа [27,2 K], добавлен 27.03.2009

  • Основные преимущества и недостатки источников финансирования инвестированного капитала. Оценка стоимости источников "банковский кредит", "облигации", "лизинг", "собственный капитал". Средневзвешенная стоимость капитала: особенности расчета показателя.

    контрольная работа [225,3 K], добавлен 14.05.2014

  • Формы функционирования собственного капитала предприятия, методология его анализа. Технико-экономические показатели деятельности ТД "Агат", анализ динамики и структуры источников образования имущества, оборотных средств и собственного капитала.

    курсовая работа [97,5 K], добавлен 15.06.2011

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.