Write a function in R that performs a Chi-Square test for trend. Cannot use the built in prop.trend.test function. Need to calculate A and B given 2 vectors from a table.

in the form pi ?+Si for some constants ?, ?. To relate Pi and Si, compute the test statisitc ?-AyB. where where which under Ho approximately follows a chi-square distri- bution with 1 df. (5) Rejection region (xi.1-a, 00) P-value : PG> ?*) P(Xi> X in the form pi ?+Si for some constants ?, ?. To relate Pi and Si, compute the test statisitc ?-AyB. where where which under Ho approximately follows a chi-square distri- bution with 1 df. (5) Rejection region (xi.1-a, 00) P-value : PG> ?*) P(Xi> X