as-500/hw24/plots.R

7 lines
171 B
R

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()