data = read.table("coronal.cut",header=T)
names(data)
count(data)
length(datA)
length(data)
length(data[,2])
length(data[,1])
length(data[,0])
plot(data[,1],data[,2])
plot(data)
plot(data)
plot(data,log="x")
plot(data,log="x",type="b")
plot(data,log="x",type="l")
plot(data,log="x",type="l",ylab="erg/s",xlab="micrometers")
plot(data,log="x",type="l",ylab="erg/s",xlab="micrometer")
plot(data,log="x",type="l",ylab="erg/s",xlab="micrometer wavelength")
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength")
pdf("coronal.pdf")
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength")
dev.off()
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength",xlim=c(1e-4,1e4))
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength",xlim=c(1e-4,1e0))
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength",xlim=c(1e-4,1e4))
pdf("coronal.pdf")
plot(data,log="x",type="l",ylab="erg/s flux",xlab="micrometer wavelength",xlim=c(1e-4,1e4))
dev.off()
quit()
pdf("coronal.pdf")
plot(data,log="x",type="l",ylab="erg/s/cm^2 flux",xlab="micrometer wavelength",xlim=c(1e-4,1e4))
dev.off()
quit()