SS2012-StatisticalMethods.git

@@ -242,7 +242,7 @@ for (i in (1:values_A)){

 		integration_MA[i]=I

 	}

-integration_MB=array(0, c(values_B, values_B))

+integration_MB=array(0, c(values_B+1, values_B+1))

 for (i in (1:values_B)){

 	for (ii in (1:values_B)){

 		I=Myintegrate(give_function_MB(i,ii),15.5,16.5)

@@ -250,5 +250,5 @@ for (i in (1:values_B)){

 	}

 }

-contour(Omegam_vec_B,w_vec,integration_MB)

+contour(Omegam_vec_B,w_vec,integration_MB,xlab='Omegam',ylab='w',col = "blue")