История изменений

Исправление psv1967, 27.07.13 00:43 (текущая версия) :


> plot(result$x[,1:2])
> lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[132]))[,2:11]))[,1:2]), col="red")
> which(l=="pos0x21-I4-rank4-11.dat")
[1] 134
> lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[134]))[,2:11]))[,1:2]), col="blue")
> which(l=="pos0x22-I3-rank4-3.dat")
[1] 151
> lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[151]))[,2:11]))[,1:2]), col="green")

довольно характерный рисунок пишет. причем симметричный, сейчас попробую все траектории «вывертов» вывести, может они еще чем то отличаются...

Исходная версия psv1967, 27.07.13 00:41:

plot(result$x[,1:2])
lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[132]))[,2:11]))[,1:2]), col=«red»)
which(l==«pos0x21-I4-rank4-11.dat»)

[1] 134

lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[134]))[,2:11]))[,1:2]), col=«blue»)
which(l==«pos0x22-I3-rank4-3.dat»)

[1] 151

lines(unique(predict(result, schift.3.data(read.table(paste0("./tubes/",l[151]))[,2:11]))[,1:2]), col=«green»)