Any of those help I am very new to fuzzy toolkit in R. I have been trying to create fuzzy function as show in the image. , I guess a start would be

code :

```
FIS <- newFIS("daytest")
FIS <- addVar(FIS, "input", "daytime", 0:2400)
FIS <- addMF(FIS, "input", 1, triMF("Midnight", 0:2400, c(0,0,600,1)))
FIS <- addMF(FIS, "input", 1, triMF("Morning", 0:2400, c(0,600,1200,1)))
FIS <- addMF(FIS, "input", 1, triMF("Noon", 0:2400, c(600,1200,1800,1)))
FIS <- addMF(FIS, "input", 1, triMF("Evening", 0:2400, c(1200,1800,2400,1)))
FIS <- addMF(FIS, "input", 1, triMF("Mignight", 0:2400, c(1800,2400,2400,1)))
class(FIS)
plotMF(FIS, "input",1)
```

```
FIS$inputList[[1]]$membershipFunctionList[[1]]$mfVals <-
FIS$inputList[[1]]$membershipFunctionList[[1]]$mfVals+
FIS$inputList[[1]]$membershipFunctionList[[5]]$mfVals
FIS$inputList[[1]]$membershipFunctionList[[1]]$mfType <- "wrapmf"
FIS$inputList[[1]]$membershipFunctionList[[5]]<-NULL
```