Using the data bellow i would like to produce a logit transformation $($logit model$)$ table tables using R program with r$^2$ i would Like to produce the second half of the table which is log$($piracy$/1-$pieacy$).$

my data are "PIR" "COL" "INC" "COST" "INT". this is the data

PIR COL INC COST INT

$455468418\mathrm{.}5112$

$306246412\mathrm{.}482$

$4077544114\mathrm{.}7237$

$758722755\mathrm{.}946$

$9592179510\mathrm{.}541$

$1565141628\mathrm{.}2154$

$2075254556\mathrm{.}9430$

$6052493222\mathrm{.}315$

$92861060386\mathrm{.}237$

$40461667534\mathrm{.}1301$

$1524213953\mathrm{.}9352$

$2082149364\mathrm{.}5551$

$207448102319$

$707037201098$

$958652045\mathrm{.}810$

$7584237929\mathrm{.}793$

$85681208103\mathrm{.}744$

$40627562061$

$4080275321\mathrm{.}9504$

$4035420161\mathrm{.}668$

$25491805010\mathrm{.}7156$

$1229336647\mathrm{.}6573$

$2032465533\mathrm{.}9351$

$608030001\mathrm{.}477$

$456329465\mathrm{.}472$

$5088297746\mathrm{.}950$

can you please provide the codes $($R program$)$ and the logit model is to replecate the two tables and should show exactly as the third table in picture R$^2$ of $0\mathrm{.}5422$ and fourth should show $0\mathrm{.}6784.$

thank you. please use R programming with the code