powered by
TSK(x, r, n, A = 0, conf = 0.95)
x<-c(15.54,20.47,27.92,35.98,55.52) n1<-c(20,20,20,19,20) r<-c(0,0,0,5.26,100)/100*n1 n<-c(20,20,20,19,20) TSK(x,r,n)
Run the code above in your browser using DataLab