![]() ![]() | ![]() |
File: [local] / OpenXM / src / asir-port / cgi / r-fd.rr (download)
Revision 1.1, Sun Jul 27 03:18:44 2014 UTC (10 years ago) by takayama
A CGI script for R to evaluate FD by contiguity relations. |
load("tk_fd.rr")$ def r_ahvec(A,B,C,Y) { R=tk_fd.ygahvec(A,B,C,Y|all=1); Gamma=R[1]; Der=R[0]; Z=R[2]*Gamma; Der2 = newvect(length(Der)); for (I=0; I<length(Der); I++) Der2[I] = Der[I]*Gamma; Der2 = vtol(Der2); Ans=cons(Z,Der2); /* Fans=map(rtostr,map(tk_fd.tk_number_rattofloat,Ans)); */ Fans=map(deval,Ans); return Fans; } end$