data = read.table("h+.tab")
plot(data)
data = read.table("h+.tab")
plot(data[,1])
plot(data)
data
data = read.table("h+.tab")
plot(data[,1])
plot(data[,1],data[,9])
plot(data[,1],data[,9],type="b")
plot(data[,1],data[,9],type="b",log="x")
plot(data[,1],data[,9],type="b",log="xy")
plot(data[,1],data[,9],type="b")
plot(data[,1],data[,9],type="b",log="x")
plot(data[,1],data[,9]/data[,3],type="b",log="x")
.125/2
data = read.table("h+.tab")
data = read.table("h+.tab")
plot(data[,1],data[,11],type="b",log="x")
plot(data[,1],data[,13],type="b",log="x")
line(data[,1],data[,13],type="b")
line(data[,1],data[,13])
?line
?lines
lines(data[,1],data[,13],type="b")
lines(data[,1],data[,11],type="b")
pdf("saha.pdf")
plot(data[,1],data[,13],type="b",log="x")
lines(data[,1],data[,11],type="b")
dev.off()
plot(data[,1],data[,13],type="b",log="x")
lines(data[,1],data[,11],type="b",pch="□")
plot(data[,1],data[,13],type="b",log="x")
lines(data[,1],data[,11],type="b",pch="x")
lines(data[,1],data[,11],type="l",pch="x")
plot(data[,1],data[,13],type="l",log="x")
lines(data[,1],data[,11],type="l",pch="x")
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift")
?plot
tick
ticks
label
lab
par
?par
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,10,100,1000,10000))
?xaxp
plot
?plot
?par
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(5,5,20))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,20))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,5))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",lab=c(7,5,3))
?par
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,10000,5))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,1000,5))
?par
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(0,5,1))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(0,5,1:1))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(-1,5,1))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1))
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),type="b")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1))
lines(data[,1],data[,11],type="l",pch="x")
lines(data[,1],data[,11],type="b",pch="x")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1).pch="-")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",pch="|")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",pch="=")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",pch="x")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",pch=".")
lines(data[,1],data[,11],type="b",pch="█")
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",pch="◎")
?lines
lines(data[,1],data[,11],type="b",lty = 1)
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="b",lty = 1)
lines(data[,1],data[,11],type="l",lty = 1)
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="l",lty = 1)
lines(data[,1],data[,11],type="l",lty = 2)
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),pch="-")
lines(data[,1],data[,11],type="l",lty = 2)
plot(data[,1],data[,13],type="b",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],type="b",lty=2)
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],type="l",lty=2)
?legend
legend( x="left", 
        legend=c("Red line, blue points","Green line, purple points"),
        col=c("red","green"), lwd=1, lty=c(1,2), pch=c(15,17), merge=FALSE )
> plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],type="l",log="x",xlab="Redshift",xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],type="l",lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ"
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ"
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/n[tot] (n.u.)"
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/n[tot] (n.u.)"
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift",
    ylab="n/nₜₒₜ [n.u.]",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
plot(data[,1],data[,13],
    type="l",
    log="x",
    xlab="Redshift [n.u.]",
    ylab="n/nₜₒₜ [n.u.]",
    xaxp=c(1,5,1),lty=3)
lines(data[,1],data[,11],
    type="l",
    lty=2)
legend( x="left", 
        legend=c("H⁺/H","H⁰/H"),
        col=c("black","black"), lwd=1, lty=c(3,2), merge=FALSE )
quit()