Displaying 1 result from an estimated 1 matches for "tp4431416p4431416".
Did you mean:
tp4431216p4431216
2012 Feb 29
2
Converting a function from Splus to R
...*p2-sqrt((j-1)/j)*p3
}
pp <- sqrt(2.d0*n)*p2
z1 <- z
z <- z1-p1/pp
if(abs(z-z1) <= EPS) break
}
x[i] <- z
x[n+1-i] <- -z
w[i] <- 2/(pp*pp)
w[n+1-i] <- w[i]
}
list(x=x,w=w)
}
--
View this message in context: http://r.789695.n4.nabble.com/Converting-a-function-from-Splus-to-R-tp4431416p4431416.html
Sent from the R help mailing list archive at Nabble.com.