powered by
XX
data(XX)
data(XX) V<-translator(XX[[1]],50) SS1<-list(length=100) for (j in 1:100){ SS1[[j]]<-generator(V,) } M<-Mmean(SS1,1) bertoluzza(M,V,1/3,1)
Run the code above in your browser using DataLab