R/memG.R

In ipsfs: Intuitionistic, Pythagorean, and Spherical Fuzzy Similarity Measure

#'@title Gaussian membership function
#'@description Gaussian membership function with mean, standard deviation, and data set
#'@param x A data set in the form of document-term matrix
#'@param a Mean values of individual rows of the data set x
#'@param b Standard deviation values of individual rows of the data set x
#'@return Gaussian membership values for the input data set x.
#'@examples
#'x<-matrix(c(12,9,14,11,21,16,15,24,20,17,14,11),nrow=4)
#'a<-mn(x)
#'b<-std(x)
#'memG(a,b,x)
#'#       [,1]      [,2]      [,3]
#'#[1,] 0.5169457 0.7958771 0.8941586
#'#[2,] 0.5179406 0.9000876 0.7891159
#'#[3,] 0.8464817 0.5134171 0.8464817
#'#[4,] 0.8464817 0.5134171 0.8464817
#'@export
memG<-function(a,b,x){
  mat<-matrix(0,nrow=nrow(x),ncol=ncol(x))
  for (i in 1:nrow(x)){
    for (j in 1:ncol(x)){
      mat[i,j]<-exp(-(1/2)*(((x[i,j]-a[i]))/b[i])^2)
    }
  }
  return(mat)
}