deFinetti<-function(g=c(0.09,0.42,0.49)){ x<-seq(from=-1/sqrt(3),to=1/sqrt(3),by=0.01) y<--1.5*x^2+1/6 plot(x,y,xlim=c(-1/sqrt(3),1/sqrt(3)),ylim=c(-1/3,2/3),type="l") abline(a=2/3,b=sqrt(3)) abline(a=2/3,b=-sqrt(3)) abline(h=-1/3) AA<-c(-…