bertoluzza(SAFD)
bertoluzza()所属R语言包:SAFD
Bertoluzza distance
Bertoluzza距离
译者:生物统计家园网 机器人LoveR
描述----------Description----------
Given two polygonal fuzzy numbers X, Y in the correct format (testing by checking) the function calculates the Bertoluzza distance of X, Y. The parameter theta (being the weight of the spread) has to fulfill theta>0, by default theta=1/3 (which corresponds to the Lebesgue measure as weighting measure on [0,1]). For detailed explanation see the papers [1] and [2] below.
鉴于两个多边形模糊数X,Y在正确的格式(测试通过checking)函数计算的Bertoluzza距离X,Y,。参数theta(即重量的传播)具有履行theta> 0,缺省情况下,theta= 1/3(对应Lebesgue测度作为加权措施[ 0,1])。详细说明见文献[1]和[2]中。
用法----------Usage----------
bertoluzza(X, Y, theta = 1/3, pic = 0)
参数----------Arguments----------
参数:X
...dataframe (polygonal fuzzy number)
...数据框(多边形模糊数)
参数:Y
...dataframe (polygonal fuzzy number)
...数据框(多边形模糊数)
参数:theta
...numeric and >0
...数值> 0
参数:pic
...numeric, if pic==1 X and Y are plotted, by default no plot is produced.
...数字,如果pic== 1 X和Y绘制,默认情况下,没有图。
Details
详细信息----------Details----------
See examples
请参见示例
值----------Value----------
...in case X and Y fulfill the conditions tested implicitly by checking the code returns the Bertoluzza distance, otherwise NA is returned.
的情况下X和Y履行条件下进行测试checking的的代码返回Bertoluzza的距离,否则不适用,则返回隐式。
注意----------Note----------
In case you find (almost surely existing) bugs or have recommendations for improving the functions comments are welcome to the above mentioned mail addresses.
如果你发现改善的功能(几乎可以肯定存在的)错误,或有建议意见,欢迎上述电子邮件地址。
(作者)----------Author(s)----------
Wolfgang Trutschnig <wolfgang@trutschnig.net>, Asun Lubiano <lubiano@uniovi.es>
参考文献----------References----------
参见----------See Also----------
See Also as Mmean, checking
请参见Mmean,checking
实例----------Examples----------
#[]
data(XX)
X<-translator(XX[[1]],50)
Y<-translator(XX[[2]],50)
Z<-translator(XX[[3]],50)
ZZ<-list(X,Y,Z)
b<-bertoluzza(X,Y,1/3,1)
b
#example (SLLN for the FRV)[例如(SLLN的FRV)]
V<-translator(XX[[3]],100)
YY<-vector("list",length=50)
for(i in 1:50){
YY[[i]]<-generator(V,,,)
}
M<-Mmean(YY)
head(M)
b<-bertoluzza(M,V,1/3,1)
b
V<-translator(XX[[3]],100)
YY<-vector("list",length=1000)
for(i in 1:1000){
YY[[i]]<-generator(V,,,)
}
M<-Mmean(YY)
head(M)
b<-bertoluzza(M,V,1/3,1)
b
#[]
X<-data.frame(x=c(0,1,1,2),alpha=c(0,1,1,0))
Y<-data.frame(x=c(0,1,2),alpha=c(0,1,0))
b<-bertoluzza(X,Y,1/3,1)
b
转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。
注:
注1:为了方便大家学习,本文档为生物统计家园网机器人LoveR翻译而成,仅供个人R语言学习参考使用,生物统计家园保留版权。
注2:由于是机器人自动翻译,难免有不准确之处,使用时仔细对照中、英文内容进行反复理解,可以帮助R语言的学习。
注3:如遇到不准确之处,请在本贴的后面进行回帖,我们会逐渐进行修订。
|