# create the fuzzy transform object
y <- (1:30)^2
x <- as.matrix(data.frame(a = 1:30, b = 30:1))
xmemb <- fcut(x,
breaks = list(a = equidist(x[, 'a'], 3),
b = equidist(x[, 'b'], 3)))
fit <- ft(x, xmemb, y, order = 1)
# obtain function values
x2 <- as.matrix(data.frame(a = 10:20, b = 20:10))
xmemb2 <- fcut(x2,
breaks = list(a = equidist(x[, 'a'], 3),
b = equidist(x[, 'b'], 3)))
y2 <- ftinv(fit, x2, xmemb2)
print(y2)
# compare original values with those obtained by the fuzzy transform
y - y2
Run the code above in your browser using DataLab