Displaying 1 result from an estimated 1 matches for "effizienz".
Did you mean:
efficient
2000 Mar 14
1
qr.solve (fwd)
...0.01, tol=1e-7)
{
d <- -0.49
x <- NULL
y <- NULL
while(d<0.5)
{
x <- c(x,d)
y <- c(y,eff(d,n=n))
d <- d + int
}
plot(x,y, type="l", xlab="d", ylab="eff (T, d)", main="Relative efficiency of OLS")
d <- x
effizienz <- y
result <- list(d,effizienz)
names(result) <- c("d", "effizienz")
return(result)
}
-------------- next part --------------
corr.matrix <- function(d, n=100)
{
mat <- NULL
for(i in 1:n)
{
mat <- c(mat,((1-i):(n-i)))
}
mat <- abs(mat)
m...