[R] An error using frbs package

[Baki UNAL]

Hello
I'm trying to run code below with frbs package. But I get an error saying: 

"Error in MF[k, temp[j + 2]] : subscript out of bounds" 
I couldn't spot the source of the error. What may be the problem?



##-----------------------------------------
varinp.mf <- matrix(c(4, 0, 0, 10, 50, 4, 10, 50, 70, 110, 4, 70, 110, 200, 200),
                    nrow = 5, byrow = FALSE)

rule <- matrix(c("d1","->","e1",
                 "d2","->","e2",
                 "d3","->","e3"),
               nrow=3, byrow=TRUE)

num.fvalinput <- matrix(c(3), nrow=1)

varinput.1 <- c("d1", "d2", "d3")

names.varinput <- c(varinput.1)

range.data <- matrix(c(0, 200, 0, 1), nrow=2)

type.defuz <- "COG"

type.tnorm <- "MIN"
type.snorm <- "MAX"
type.implication.func <- "ZADEH"

name <- "Sim-1"

newdata<- matrix(c(150), nrow= 1, byrow = TRUE)

colnames.var <- c("AralikD","Cikti")

num.fvaloutput <- matrix(c(3), nrow=1)

varoutput.1 <- c("e1", "e2", "e3")

names.varoutput <- c(varoutput.1)

varout.mf <- matrix(c(4, 0, 0, 0.1, 0.4, 4, 0.1, 0.4, 0.6, 0.9, 4, 0.6, 0.9, 1.0, 1.0),
                    nrow = 5, byrow = FALSE)

type.model <- "MAMDANI"

object <- frbs.gen(range.data, num.fvalinput, names.varinput, num.fvaloutput, varout.mf, 
                   names.varoutput, rule, varinp.mf, type.model, type.defuz, type.tnorm, 
                   type.snorm, func.tsk = NULL, colnames.var, type.implication.func, name)

plotMF(object)

res <- predict(object, newdata)$predicted.val
##-----------------------------------------

	[[alternative HTML version deleted]]