data = read.table("data.tab")


png("othoulrich_net_cooling.png")
plot(data,type="l",xlab="Electron Density [cm⁻³]",ylab="Net Cooling [ergs cm⁻³ s⁻¹]")
dev.off()