Array2 = SpearmanRank(y)
q = 0
For i = LBound(Array1) To UBound(Array1)
If Not (Application.IsNumber(Array1(i)) And Application.IsNumber(Array2(i))) Then q = q + 1
Next
ReDim Array01(UBound(Array1) - q): ReDim Array02(UBound(Array2) - q)
q = 0
For i = LBound(Array1) To UBound(Array1)
If Not (Application.IsNumber(Array1(i)) And Application.IsNumber(Array2(i))) Then
q = q + 1
Else
Array01(i - q) = Array1(i): Array02(i - q) = Array2(i)
End If
Next
Spearman = Application.Pearson(Array01, Array02)
End Function
Function SpearmanRank(Source) As Variant
Dim Result() As Variant, Cnt() As Integer, i As Integer
ReDim Result(Source.Count - 1): ReDim Cnt(Source.Count - 1)
On Error Resume Next
For i = 1 To Source.Count
Result(i - 1) = Application.Rank(Source(i), Source)
If Result(i - 1) <> CVErr(2042) Then
Cnt(Result(i - 1) - 1) = Cnt(Result(i - 1) - 1) + 1
End If
Next
For i = 0 To Source.Count - q
If Result(i) <> CVErr(2042) Then
Result(i) = Result(i) + (Cnt(Result(i) - 1) - 1) / 2
Else
Result(i) = Empty
End If
Next
SpearmanRank = Result
End Function
Function SpearmanP(R, DF) As Double
On Error Resume Next
SpearmanP = Application.TDist(Abs(R) / Sqr(1 - R * R) * Sqr(DF - 2), DF - 2, 2) * (R / Abs(R))
End Function
Лабораторная работа №1. Модели межотраслевого баланса. 5
Лабораторная работа №2. Практикум по решению задач линейного программирования. 11
Лабораторная работа №3. Теория двойственности. Экономический анализ оптимального плана. 17
Лабораторная работа №5. Размещение производства по филиалам.. 25
Лабораторная работа №6. Транспортная задача. 30
Лабораторная работа №7. Динамическое программирование. 33
Лабораторная работа №9. Оценивание параметров функции Торнквиста 46
Лабораторная работа №10. Микроэкономический анализ технологической эффективности фирмы.. 53
[1] Все объёмные данные приведены в расчёте на сутки.
[2] Цена у ворот перерабатывающего предприятия.
[3] Выполняется только при использовании в учебном процессе специализированного пакета прикладных программ для статистического анализа.
[4] Наблюдения, которым соответствует нулевой спрос, следует исключать из совокупности данных перед расчётом величины z.
[5] Рекомендуется скопировать его при помощи буфера обмена из электронного варианта настоящих методических указаний (см. методические указания к предыдущему пункту задания).
В более ранних версиях Excel для использования данных функций вместо команды Разработчик ® Visual Basic следует дать команду Сервис ® Макросы ® Редактор Visual Basic.