Chức năng Logic mờ trong R như trong Matlab

Question

Hộp công cụ logic mờ mờ Matlab, trình bày Fuzzy Inference System Modeling.. Có một R tương đương của tất cả các hộp công cụ hoặc một số chức năng R như:

1. readfis(): Load Fuzzy Hệ thống suy luận từ file
2. evalfis(): Thực hiện tính toán suy luận mờ

để đọc và đánh giá hệ thống mờ trong R?

Answer 1

Hãy xem sets package Mọi thứ bạn mong đợi từ hộp công cụ logic mờ. Nó cho phép chỉ định các hàm thành viên mờ của bạn, thiết lập các quy tắc mờ của bạn, suy luận mờ và làm mờ. Ví dụ trong? Fuzzy_inference hiển thị ví dụ về nhà hàng của sách giáo khoa logic mờ tiêu chuẩn. Tôi rất khuyên bạn nên sử dụng nó.

## set universe 
sets_options("universe", seq(from = 0, to = 25, by = 0.1)) 

## set up fuzzy variables 
variables <- 
set(service = fuzzy_partition(varnames = c(poor = 0, good = 5, excellent = 10), sd = 1.5), 
food = fuzzy_variable(rancid = fuzzy_trapezoid(corners = c(-2, 0, 2, 4)), 
         delicious = fuzzy_trapezoid(corners = c(7, 9, 11, 13))), 
tip = fuzzy_partition(varnames = c(cheap = 5, average = 12.5, generous = 20), 
         FUN = fuzzy_cone, radius = 5) 
) 

## set up rules 
rules <- 
set(
fuzzy_rule(service %is% poor || food %is% rancid, tip %is% cheap), 
fuzzy_rule(service %is% good, tip %is% average), 
fuzzy_rule(service %is% excellent || food %is% delicious, tip %is% generous) 
) 

## combine to a system 
system <- fuzzy_system(variables, rules) 
print(system) 
plot(system) ## plots variables 

## do inference 
fi <- fuzzy_inference(system, list(service = 3, food = 8)) 

## plot resulting fuzzy set 
plot(fi) 

## defuzzify 
gset_defuzzify(fi, "centroid") 

## reset universe 
sets_options("universe", NULL) 

Answer 2

Bạn có thể sử dụng gói FuzzyToolkitUoN. Tôi tin rằng nó được phát triển bởi J. M. Garibaldi và những người khác tại Đại học Nottingham.

Mã nguồn có sẵn trên trang web của mình: http://ima.ac.uk/garibaldi

Và công việc đã được công bố here.