mirror of
https://asciireactor.com/otho/as-500.git
synced 2025-10-31 18:18:04 +00:00
33 lines
1.1 KiB
R
33 lines
1.1 KiB
R
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()
|