n<-1000;H1<-.3;H2<-.8
## "no"
tmp1<-perturbFBM(n,H1,type="no",plot=TRUE)
tmp2<-perturbFBM(n,H2,type="no",plot=TRUE)
## "AO"
tmp3<-perturbFBM(n,H1,type="AO",SNR=0,plot=TRUE)
tmp4<-perturbFBM(n,H2,type="AO",SNR=-20,plot=TRUE)
## "B0"
tmp5<-perturbFBM(n,H1,type="B0",SNR=10,plot=TRUE)
tmp6<-perturbFBM(n,H2,type="B0",SNR=0,plot=TRUE)
## "B1"
tmp7<-perturbFBM(n,H1,type="B1",SNR=10,plot=TRUE)
tmp8<-perturbFBM(n,H2,type="B1",SNR=0,plot=TRUE)
Run the code above in your browser using DataLab