Please answer the following in RStudio

We are interested in whether the proportion of men and women with body temperatures greater than or equal to 98.6 degrees Fahrenheit are equal. Therefore, we need to dichotomize the body temperature variable. Create a new variable, called "temp_level" in which temp_level = 1 if body temperature >= 98.6 and temp_level=0 if body temperature < 98.6

Data (1=males, 2 =females)

tempsexHeart rate

96.3170

96.7171

96.9174

97180

97.1173

97.1175

97.1182

97.2164

97.3169

97.4170

97.4168

97.4172

97.4178

97.5170

97.5175

97.6174

97.6169

97.6173

97.7177

97.8158

97.8173

97.8165

97.8174

97.9176

97.9172

98178

98171

98174

98167

98164

98178

98.1173

98.1167

98.2166

98.2164

98.2171

98.2172

98.3186

98.3172

98.4168

98.4170

98.4182

98.4184

98.5168

98.5171

98.6277

98.6178

98.6183

98.6266

98.6170

98.6182

98.7273

98.7178

98.8178

98.8181

98.8278

98.9180

99275

99279

99181

99.1171

99.2183

99.3163

99.4170

99.5175

96.4269

96.7262

96.8175

97.2166

97.2268

97.4257

97.6161

97.7284

97.7161

97.8277

97.8262

97.8271

97.9168

97.9269

97.9279

98276

98187

98278

98273

98289

98.1281

98.2273

98.2264

98.2265

98.2273

98.2269

98.2257

98.3279

98.3278

98.3280

98.4279

98.4281

98.4273

98.4274

98.4284

98.5283

98.6282

98.6285

98.6286

98.6277

98.7272

98.7279

98.7259

98.7264

98.7265

98.7282

98.8264

98.8270

98.8283

98.8289

98.8269

98.8273

98.8284

98.9276

99279

99281

99.1280

99.1274

99.2277

99.2266

99.3268

99.4277

99.9279

100278

100.8277