toy {emulator} | R Documentation |
A dataframe consisting of 10 rows and 6 columns corresponding to 10 points in a six-dimensional space.
data(toy)
data(toy) real.relation <- function(x){sum( (1:6)*x )} d.noisy <- apply(toy,1,real.relation)+rnorm(nrow(toy))/10 fish <- rep(2,6) A <- corr.matrix(toy,scales=fish , power=1.5) Ainv <- solve(A) x.unknown <- rep(0.5 , 6) interpolant(x.unknown, d.noisy, toy, Ainv, scales=fish, g=FALSE) real.relation(x.unknown) ##should match estimate.