Never send a human to do a machine's job...

[kouprianov]

Некоторое время назад считали одну штуку руками. Сейчас рисуем красиво на основе тех посчитанных данных. Рисуется. Закрадывается сомнение. Проверяю. Вижу, что руками насчитали какую-то лажу. Однако поначалу пересчет кажется столь нетривиальным, что кажется, будто снова придется все руками считать. Полдня проездил по делам, почему-то за рулем думается удачнее. И вот -- результаты. Все посчитала машина. Правильно, на сей раз. Перерисовали. Что-то осталось на своем месте, но что-то поехало. Скрипт ничего никому не скажет, он просто фиксирует для меня самого, что можно считать и то, что поначалу кажется посчитать трудно или невозможно.

for (i in 1:dim(p.1.table)[1])
{
p.1.table$dc[i] <- subset(pdf.all.df, pdf.all.df$p == p.1.table$Var1[i])$dc
}

for (i in 1:dim(p.1.table)[1])
{
p.1.table$sty[i] <- subset(pdf.all.df, pdf.all.df$p == p.1.table$Var1[i])$sty
}

for (i in 1:dim(dc.table)[1])
{
dc.table$sty[i] <- min(subset(p.1.table, p.1.table$dc == dc.table$d[i])$sty)
}

This entry was originally posted at http://kouprianov.dreamwidth.org/306911.html Comment wherever you wish.