if (interactive()){
data(yeast)
yeastF <- filter.NA(yeast)
yeastF <- fill.NA(yeastF) # for illustration only; rather use knn method
yeastF <- standardise(yeastF)
cl <- mfuzz(yeastF,c=20,m=1.25)
m <- 1.25
clusters <- cl[[1]]
x <- matrix(rnorm(2*17),nrow=2) # new expression matrix with two genes
mem.tmp <- membership(x,clusters=clusters,m=m) #membership values
}
Run the code above in your browser using DataLab