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