calculate4GType1Error function

calculate4GType1Error