read.table("adat3.txt")
read.table("adat3.txt",header=TRUE)
read.table("adat3.txt",header=TRUE) -> pontok
class(pontok)
plot(pontok$x,pontok$y)
plot(pontok$x,pontok$y,col="blue")
plot(pontok$x,pontok$y,col=10)
plot(pontok$x,pontok$y,pch=3)
plot(pontok$x,pontok$y,pch=1:201)
x <- seq(-2,2,1)
x
y <- x^2
y
plot(x,y)
plot(x,y,type="p")
?plot
plot(x,y,type="l")
plot(x,y,type="b")
plot(x,y,type="c")
plot(x,y,type="o")
plot(x,y,type="h")
plot(x,y,type="s")
plot(x,y,type="S")
plot(x,y,type="l")
x <- seq(-2,2,0.1)
x
y <- x^2
plot(x,y,type="l")
plot(x,y,type="l",col="red")
plot(x,y,type="o",col="red",pch=2)
plot(x,y,type="o",lwd=0.5)
plot(x,y,type="o",lwd=3)
plot(x,y,type="o",lty=1)
plot(x,y,type="l",lty=2)
plot(x,y,type="l",lty=3)
plot(x,y,type="l",lty=4)
plot(x,y,type="l",lty=5)
plot(x,y,type="l",lty=6)
y2 <- x
points(x,y2)
plot(x,y,type="l")
lines(x,y2)
lines(x,x^2-2,col="red")
plot(x,y,type="l",ylim=c(-2,4))
lines(x,y2)
lines(x,x^2-2,col="red")
log(1)
log(2)
log(e)
e
E
log(exp(1))
log(c(0,1,2,3,4))
x <- seq(0,4,0.5)
y1 <- log(x)
plot(x,y1,type="l")
x
x <- seq(0,4,0.2)
y1 <- log(x)
plot(x,y1,type="l")
x/2
y2 <- log(x/2)
lines(x,y2)
lines(x,y2,col="blue")
y3 <- 3/2 * y2
lines(x,y3,col="purple")
y4 <- y3 - 2
lines(x,y4,col="red")
plot(x,y1,type="l",ylim=c(-5,1.5))
lines(x,y2,col="blue")
lines(x,y3,col="purple")
lines(x,y4,col="red")
plot(x,y1,type="l",ylim=c(-6,1.5))
lines(x,y2,col="blue")
lines(x,y3,col="purple")
lines(x,y4,col="red")
# vagy y4 <- 3/2*log(x/2) -2
plot(x,y1,type="l",ylim=c(-6,1.5),ylab="y")
lines(x,y2,col="blue")
lines(x,y3,col="purple")
lines(x,y4,col="red")
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y")
plot(x,
y)
plot(x,
y1)
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y")
lines(x,y2,col="blue")
lines(x,y3,col="purple")
lines(x,y4,col="red")
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y",main="Függvénytranszformáció")
lines(x,y2,col="blue")
lines(x,y3,col="purple")
lines(x,y4,col="red")
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y",main="Függvénytranszformáció")
lines(x,y2,col="blue",lty=3)
lines(x,y3,col="purple")
lines(x,y4,col="red")
lines(x,y4,col="red",pch=2)
lines(x,y4,col="red",pch=2,type="o")
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2")
)
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2"),
col=c("black","blue","purple","red")
)
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2"),
col=c("black","blue","purple","red"),
lty=1
)
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y",main="Függvénytranszformáció")
lines(x,y2,col="blue",lty=3)
lines(x,y3,col="purple")
lines(x,y4,col="red",pch=2,type="o")
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2"),
col=c("black","blue","purple","red"),
lty=1
)
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y",main="Függvénytranszformáció")
lines(x,y2,col="blue",lty=3)
lines(x,y3,col="purple")
lines(x,y4,col="red",pch=2,type="o")
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2"),
col=c("black","blue","purple","red"),
lty=c(1,3,1,1)
)
plot(x,y1,type="l",ylim=c(-6,1.5),
ylab="y",main="Függvénytranszformáció")
lines(x,y2,col="blue",lty=3)
lines(x,y3,col="purple")
lines(x,y4,col="red",pch=2,type="o")
legend(2,-4,c("log(x)","log(x/2)",
"3/2 log(x/2)","3/2log(x/2)-2"),
col=c("black","blue","purple","red"),
lty=c(1,3,1,1),
pch=c(NA,NA,NA,2)
)
ls()
save.image("C:\\Users\\aa002221\\Documents\\R\\10het\\szerda\\.RData")