R version 4.2.3 (2023-03-15 ucrt) -- "Shortstop Beagle"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> read.table("adat3B.txt")
                   V1                V2
1                   x                 y
2    -1.8128998382017  1.26669337503769
3   -1.78000617120415  1.71519363544058
4   -1.53761506639421  1.53039595994982
5   -1.38548593875021  2.72491049194419
6   -1.36370046436787  1.54231349922645
7   -1.06372281443328  2.88488442579417
8    -1.0034651523456   2.3685727509976
9  -0.576038711704314  3.84214062542247
10 -0.511751984246075  3.26162721906042
11 -0.501689574681222  3.91782015629168
12 -0.418183164671063  3.39803187033859
13 -0.263308608904481  4.39116859949933
14 -0.202671359293163  3.03084561916818
15 -0.171649440191686  2.88538221901632
16 -0.136144533753395  4.16882140549909
17 -0.122023028321564  4.56867890337556
18  0.111457922495902  4.56005239290003
19  0.187089855782688   4.3856096725553
20  0.211925454437733  3.72069757748924
21  0.496581580489874   2.7570106560698
22  0.624563951045275  3.28052419828612
23  0.677349402569234  3.57347895464101
24   0.69881484284997   4.3505365426658
25  0.712974446825683  2.68153536193289
26  0.754332346841693  3.09814415196959
27  0.923411292955279  3.06342903785826
28   1.06195071432739  2.80959437953245
29   1.30101988278329  2.54548965410528
30   1.42867687996477  2.06092751859977
31   1.75527362432331 0.941456016204296
> read.table("adat3B.txt",header=TRUE)
            x        y
1  -1.8128998 1.266693
2  -1.7800062 1.715194
3  -1.5376151 1.530396
4  -1.3854859 2.724910
5  -1.3637005 1.542313
6  -1.0637228 2.884884
7  -1.0034652 2.368573
8  -0.5760387 3.842141
9  -0.5117520 3.261627
10 -0.5016896 3.917820
11 -0.4181832 3.398032
12 -0.2633086 4.391169
13 -0.2026714 3.030846
14 -0.1716494 2.885382
15 -0.1361445 4.168821
16 -0.1220230 4.568679
17  0.1114579 4.560052
18  0.1870899 4.385610
19  0.2119255 3.720698
20  0.4965816 2.757011
21  0.6245640 3.280524
22  0.6773494 3.573479
23  0.6988148 4.350537
24  0.7129744 2.681535
25  0.7543323 3.098144
26  0.9234113 3.063429
27  1.0619507 2.809594
28  1.3010199 2.545490
29  1.4286769 2.060928
30  1.7552736 0.941456
> read.table("adat3B.txt",header=TRUE) -> pontok
> class(pontok)
[1] "data.frame"
> mode(pontok)
[1] "list"
> mode(pontok$x)
[1] "numeric"
> mode(pontok$y)
[1] "numeric"
> ls()
[1] "pontok"
> attach(pontok)
> ls()
[1] "pontok"
> x
 [1] -1.8128998 -1.7800062 -1.5376151 -1.3854859
 [5] -1.3637005 -1.0637228 -1.0034652 -0.5760387
 [9] -0.5117520 -0.5016896 -0.4181832 -0.2633086
[13] -0.2026714 -0.1716494 -0.1361445 -0.1220230
[17]  0.1114579  0.1870899  0.2119255  0.4965816
[21]  0.6245640  0.6773494  0.6988148  0.7129744
[25]  0.7543323  0.9234113  1.0619507  1.3010199
[29]  1.4286769  1.7552736
> pontok$x
 [1] -1.8128998 -1.7800062 -1.5376151 -1.3854859
 [5] -1.3637005 -1.0637228 -1.0034652 -0.5760387
 [9] -0.5117520 -0.5016896 -0.4181832 -0.2633086
[13] -0.2026714 -0.1716494 -0.1361445 -0.1220230
[17]  0.1114579  0.1870899  0.2119255  0.4965816
[21]  0.6245640  0.6773494  0.6988148  0.7129744
[25]  0.7543323  0.9234113  1.0619507  1.3010199
[29]  1.4286769  1.7552736
> plot(x,y)
> plot(x,y,type="l")
> ?plot
starting httpd help server ... done
> plot(x,y,type="p")
> plot(x,y,type="o")
> plot(x,y,type="b")
> plot(x,y,type="c")
> plot(x,y,type="h")
> plot(x,y,type="s")
> plot(x,y,type="S")
> detach(pontok)
> x
Error: object 'x' not found
> x <- rnorm(10)
> x
 [1] -0.22450072  0.73182151 -1.15707168  0.87035169
 [5] -0.32584788  0.06286279  0.59003797 -0.18244656
 [9]  1.09153696 -1.77842994
> y <- rnorm(10)
> plot(x,y,type="l")
> x <- seq(-2,2,1)
> x
[1] -2 -1  0  1  2
> y <- x^2
> y
[1] 4 1 0 1 4
> plot(x,y,type="l")
> x <- seq(-2,2,0.2)
> y <- x^2
> plot(x,y,type="l")
> plot(x,x^2,type="l")
> plot(x,x^2,type="l",col="red")
> plot(x,x^2,type="o",col="red",pch=5)
> plot(x,x^2,type="l",lwd=3)
> plot(x,x^2,type="l",lwd=0.5)
> plot(x,x^2,type="l",lty=1)
> plot(x,x^2,type="l",lty=2)
> plot(x,x^2,type="l",lty=3)
> plot(x,x^2,type="l",lty=4)
> plot(x,x^2,type="l",lty=5)
> plot(x,x^2,type="l",lty=6)
> plot(x,x^2,type="l",lty=7)
> plot(x,x^2,type="l",lty=8)
> lines(x,x)
> plot(x,x^2,type="l",lty=8,ylim=c(-2,4))
> lines(x,x)
> plot(x,x^2,type="l",lty=8,xlim=c(-2.5,2.5))
> lines(x,x)
> plot(x,x^2,type="l",lty=8,
+ xlim=c(-2.5,2.5),ylim=c(-2,4),
+ ylab="f(x)")
> lines(x,x)
> lines(
+ x,x)
> plot(x,x^2,type="l",lty=8,
+ xlim=c(-2.5,2.5),ylim=c(-2,4),
+ ylab="f(x)",main="y^2 és x")
> lines(x,x)
> pi
[1] 3.141593
> cos
function (x)  .Primitive("cos")
> cos(0)
[1] 1
> cos(pi/2)
[1] 6.123032e-17
> cos(pi)
[1] -1
> cos(c(0,pi/2,pi))
[1]  1.000000e+00  6.123032e-17 -1.000000e+00
> # ZH feladat: f(x) = 2cos(2x)-1
> # abrazolasa fuggvenytranszformacioval
> # 4 lepesben, [0 , 4pi] intervallumon
> # 1. cos(x), 2. cos(2x), 3. 2cos(2x),
> # 4. 2cos(2x)-1
> x <- seq(0,4*pi,pi/4)
> y1 <- cos(x)
> 
> 
> plot(x,y1,type="l")
> # ZH feladat: f(x) = 2cos(2x)-1
> # abrazolasa fuggvenytranszformacioval
> # 4 lepesben, [0 , 4pi] intervallumon
> # 1. cos(x), 2. cos(2x), 3. 2cos(2x),
> # 4. 2cos(2x)-1
> x <- seq(0,4*pi,pi/32)
> y1 <- cos(x)
> 
> 
> plot(x,y1,type="l")
> y2 <- cos(2*x)
> lines(x,y2,col="blue")
> y3 <- 2 * y2
> lines(x,y3,col="purple")
> plot(x,y1,type="l",ylim=c(-2,2))
> lines(x,y2,col="blue")
> lines(x,y3,col="purple")
> y4 <- y3 - 1
> lines(x,y4,col="red")
> plot(x,y1,type="l",ylim=c(-3,2))
> lines(x,y2,col="blue")
> lines(x,y3,col="purple")
> lines(x,y4,col="red")
> plot(x,y1,type="l",ylim=c(-3,2))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red")
> lines(x,y4,col="red",pch=3)
> lines(x,y4,col="red",pch=3,type="o")
> lines(x,y4,col="red",pch=4,type="o")
> plot(x,y1,type="l",ylim=c(-3,2))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> ?legend
> plot(x,y1,type="l",ylim=c(-3,3))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,3,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1")
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=1
+ )
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1)
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1)
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1),
+ col=c("black","blue","purple","red")
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ #lty=c(1,2,1,1),
+ col=c("black","blue","purple","red")
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1),
+ col=c("black","blue","purple","red")
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1),
+ col=c("black","blue","purple","red"),
+ pch=4
+ )
> plot(x,y1,type="l",ylim=c(-3,4))
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1),
+ col=c("black","blue","purple","red"),
+ pch=c(NA,NA,NA,4)
+ )
> plot(x,y1,type="l",ylim=c(-3,4),
+ ylab="y",
+ main="Függvénytranszformáció")
> lines(x,y2,col="blue",lty=2)
> lines(x,y3,col="purple")
> lines(x,y4,col="red",pch=4,type="o")
> legend(0,4,c("cos(x)","cos(2x)",
+ "2cos(2x)","2cos(2x)-1"),
+ lty=c(1,2,1,1),
+ col=c("black","blue","purple","red"),
+ pch=c(NA,NA,NA,4)
+ )
> plot(x,y)
Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' and 'y' lengths differ
> plot(x,y1)
> points(x,y2,col="red")
> points(x,y2,col="red",type="l")
> plot(x,y1)
> points(x,y2,col="red",type="l")
> sin
function (x)  .Primitive("sin")
> function (x) x^2-1
function (x) x^2-1
> f <- function (x) x^2-1
> f
function (x) x^2-1
> f(1)
[1] 0
> sugar <- function (x,y) { r2 <- x^2+y^2;sqrt(r2) }
> r2
Error: object 'r2' not found
> sugar(3,4)
[1] 5
> sugar <- function (x,y) { r2 <- x^2+y^2 ;
+ return(sqrt(r2)) }
> sugar
function (x,y) { r2 <- x^2+y^2 ;
return(sqrt(r2)) }
> sugar(3,4)
[1] 5
> x <- seq(-2,2,0.2)
> y <- seq(-2,2,0.2)
> z <- outer(x,y,sugar)
> x[3]
[1] -1.6
> y[2]
[1] -1.8
> sugar(x[3],y[2])
[1] 2.408319
> z[3,2]
[1] 2.408319
> dim(z)
[1] 21 21
> z
          [,1]     [,2]     [,3]     [,4]     [,5]
 [1,] 2.828427 2.690725 2.561250 2.441311 2.332381
 [2,] 2.690725 2.545584 2.408319 2.280351 2.163331
 [3,] 2.561250 2.408319 2.262742 2.126029 2.000000
 [4,] 2.441311 2.280351 2.126029 1.979899 1.843909
 [5,] 2.332381 2.163331 2.000000 1.843909 1.697056
 [6,] 2.236068 2.059126 1.886796 1.720465 1.562050
 [7,] 2.154066 1.969772 1.788854 1.612452 1.442221
 [8,] 2.088061 1.897367 1.708801 1.523155 1.341641
 [9,] 2.039608 1.843909 1.649242 1.456022 1.264911
[10,] 2.009975 1.811077 1.612452 1.414214 1.216553
[11,] 2.000000 1.800000 1.600000 1.400000 1.200000
[12,] 2.009975 1.811077 1.612452 1.414214 1.216553
[13,] 2.039608 1.843909 1.649242 1.456022 1.264911
[14,] 2.088061 1.897367 1.708801 1.523155 1.341641
[15,] 2.154066 1.969772 1.788854 1.612452 1.442221
[16,] 2.236068 2.059126 1.886796 1.720465 1.562050
[17,] 2.332381 2.163331 2.000000 1.843909 1.697056
[18,] 2.441311 2.280351 2.126029 1.979899 1.843909
[19,] 2.561250 2.408319 2.262742 2.126029 2.000000
[20,] 2.690725 2.545584 2.408319 2.280351 2.163331
[21,] 2.828427 2.690725 2.561250 2.441311 2.332381
          [,6]      [,7]      [,8]      [,9]
 [1,] 2.236068 2.1540659 2.0880613 2.0396078
 [2,] 2.059126 1.9697716 1.8973666 1.8439089
 [3,] 1.886796 1.7888544 1.7088007 1.6492423
 [4,] 1.720465 1.6124515 1.5231546 1.4560220
 [5,] 1.562050 1.4422205 1.3416408 1.2649111
 [6,] 1.414214 1.2806248 1.1661904 1.0770330
 [7,] 1.280625 1.1313708 1.0000000 0.8944272
 [8,] 1.166190 1.0000000 0.8485281 0.7211103
 [9,] 1.077033 0.8944272 0.7211103 0.5656854
[10,] 1.019804 0.8246211 0.6324555 0.4472136
[11,] 1.000000 0.8000000 0.6000000 0.4000000
[12,] 1.019804 0.8246211 0.6324555 0.4472136
[13,] 1.077033 0.8944272 0.7211103 0.5656854
[14,] 1.166190 1.0000000 0.8485281 0.7211103
[15,] 1.280625 1.1313708 1.0000000 0.8944272
[16,] 1.414214 1.2806248 1.1661904 1.0770330
[17,] 1.562050 1.4422205 1.3416408 1.2649111
[18,] 1.720465 1.6124515 1.5231546 1.4560220
[19,] 1.886796 1.7888544 1.7088007 1.6492423
[20,] 2.059126 1.9697716 1.8973666 1.8439089
[21,] 2.236068 2.1540659 2.0880613 2.0396078
          [,10] [,11]     [,12]     [,13]     [,14]
 [1,] 2.0099751   2.0 2.0099751 2.0396078 2.0880613
 [2,] 1.8110770   1.8 1.8110770 1.8439089 1.8973666
 [3,] 1.6124515   1.6 1.6124515 1.6492423 1.7088007
 [4,] 1.4142136   1.4 1.4142136 1.4560220 1.5231546
 [5,] 1.2165525   1.2 1.2165525 1.2649111 1.3416408
 [6,] 1.0198039   1.0 1.0198039 1.0770330 1.1661904
 [7,] 0.8246211   0.8 0.8246211 0.8944272 1.0000000
 [8,] 0.6324555   0.6 0.6324555 0.7211103 0.8485281
 [9,] 0.4472136   0.4 0.4472136 0.5656854 0.7211103
[10,] 0.2828427   0.2 0.2828427 0.4472136 0.6324555
[11,] 0.2000000   0.0 0.2000000 0.4000000 0.6000000
[12,] 0.2828427   0.2 0.2828427 0.4472136 0.6324555
[13,] 0.4472136   0.4 0.4472136 0.5656854 0.7211103
[14,] 0.6324555   0.6 0.6324555 0.7211103 0.8485281
[15,] 0.8246211   0.8 0.8246211 0.8944272 1.0000000
[16,] 1.0198039   1.0 1.0198039 1.0770330 1.1661904
[17,] 1.2165525   1.2 1.2165525 1.2649111 1.3416408
[18,] 1.4142136   1.4 1.4142136 1.4560220 1.5231546
[19,] 1.6124515   1.6 1.6124515 1.6492423 1.7088007
[20,] 1.8110770   1.8 1.8110770 1.8439089 1.8973666
[21,] 2.0099751   2.0 2.0099751 2.0396078 2.0880613
          [,15]    [,16]    [,17]    [,18]    [,19]
 [1,] 2.1540659 2.236068 2.332381 2.441311 2.561250
 [2,] 1.9697716 2.059126 2.163331 2.280351 2.408319
 [3,] 1.7888544 1.886796 2.000000 2.126029 2.262742
 [4,] 1.6124515 1.720465 1.843909 1.979899 2.126029
 [5,] 1.4422205 1.562050 1.697056 1.843909 2.000000
 [6,] 1.2806248 1.414214 1.562050 1.720465 1.886796
 [7,] 1.1313708 1.280625 1.442221 1.612452 1.788854
 [8,] 1.0000000 1.166190 1.341641 1.523155 1.708801
 [9,] 0.8944272 1.077033 1.264911 1.456022 1.649242
[10,] 0.8246211 1.019804 1.216553 1.414214 1.612452
[11,] 0.8000000 1.000000 1.200000 1.400000 1.600000
[12,] 0.8246211 1.019804 1.216553 1.414214 1.612452
[13,] 0.8944272 1.077033 1.264911 1.456022 1.649242
[14,] 1.0000000 1.166190 1.341641 1.523155 1.708801
[15,] 1.1313708 1.280625 1.442221 1.612452 1.788854
[16,] 1.2806248 1.414214 1.562050 1.720465 1.886796
[17,] 1.4422205 1.562050 1.697056 1.843909 2.000000
[18,] 1.6124515 1.720465 1.843909 1.979899 2.126029
[19,] 1.7888544 1.886796 2.000000 2.126029 2.262742
[20,] 1.9697716 2.059126 2.163331 2.280351 2.408319
[21,] 2.1540659 2.236068 2.332381 2.441311 2.561250
         [,20]    [,21]
 [1,] 2.690725 2.828427
 [2,] 2.545584 2.690725
 [3,] 2.408319 2.561250
 [4,] 2.280351 2.441311
 [5,] 2.163331 2.332381
 [6,] 2.059126 2.236068
 [7,] 1.969772 2.154066
 [8,] 1.897367 2.088061
 [9,] 1.843909 2.039608
[10,] 1.811077 2.009975
[11,] 1.800000 2.000000
[12,] 1.811077 2.009975
[13,] 1.843909 2.039608
[14,] 1.897367 2.088061
[15,] 1.969772 2.154066
[16,] 2.059126 2.236068
[17,] 2.163331 2.332381
[18,] 2.280351 2.441311
[19,] 2.408319 2.561250
[20,] 2.545584 2.690725
[21,] 2.690725 2.828427
> dim(z)
[1] 21 21
> length(x)
[1] 21
> length(yí)
Error: object 'yí' not found
> length(y)
[1] 21
> z[3,2] == sugar(x[3],y[2])
[1] TRUE
> z[17,52] == sugar(x[17],y[5])
Error in z[17, 52] : subscript out of bounds
> z[17,5] == sugar(x[17],y[5])
[1] TRUE
> sugar(x,y)
 [1] 2.8284271 2.5455844 2.2627417 1.9798990
 [5] 1.6970563 1.4142136 1.1313708 0.8485281
 [9] 0.5656854 0.2828427 0.0000000 0.2828427
[13] 0.5656854 0.8485281 1.1313708 1.4142136
[17] 1.6970563 1.9798990 2.2627417 2.5455844
[21] 2.8284271
> image(x,y,z)
> contour(x,y,z)
> contour(x,y,z,nlevels=5)
> contour(x,y,z,nlevels=7)
> contour(x,y,z,nlevels=8)
> contour(x,y,z,nlevels=10)
> contour(x,y,z,nlevels=12)
> contour(x,y,z,nlevels=3)
> image(x,y,z)
> contour(x,y,z,add=TRUE)
> image(x,y,z)
> contour(x,y,z,add=TRUE,nlevels=12)
> persp(x,y,z)
> persp(x,y,z,theta=0)
> persp(x,y,z,theta=30)
> persp(x,y,z,theta=30,phi=15)
> persp(x,y,z,theta=30,phi=45)
> persp(x,y,z,theta=60,phi=30)
> persp(x,y,z,theta=60,phi=1:30)
> ?persp
> ?for

+ > help.search("for")
> help.search("loop")
> for (alpha in 1:30) {persp(
+ x,y,z,phi=alpha) }
> for (alpha in 1:30) {persp(
+ x,y,z,phi=alpha) }
> help.search("wait")
> persp(x,y,z,col="red")
> persp(x,y,z,col=1:3)
> persp(x,y,z,col=1:3,theta=30)
> rmorm(10)
Error in rmorm(10) : could not find function "rmorm"
> rnorm(10)
 [1]  0.93707476 -0.33331595
 [3]  0.08569835 -2.35465026
 [5]  0.02212288 -0.39294188
 [7] -1.98062389 -0.88464033
 [9]  2.14560556 -0.92978174
> runif(10)
 [1] 0.1615211 0.9560125 0.4543464 0.9481978
 [5] 0.7111970 0.6689991 0.6556344 0.4484927
 [9] 0.7263789 0.4281112
> ?runif
> x <- seq(-0.5,1.5,0.1)
> plot(x,dunif(x),type="l")
> help.search("set function")
> lines(x,punif(x),col="red")
> ?binom
No documentation for ‘binom’ in specified packages and libraries:
you could try ‘??binom’
> ?rbinom
> x <- 0:10
> y <- dbinom(x,size = 10, prob= 0.5)
> y
 [1] 0.0009765625 0.0097656250 0.0439453125
 [4] 0.1171875000 0.2050781250 0.2460937500
 [7] 0.2050781250 0.1171875000 0.0439453125
[10] 0.0097656250 0.0009765625
> plot(x,y)
> y <- dbinom(x,size = 10, prob= 0.7)
> plot(x,y)
> sum(y)
[1] 1
> ?distributions
> x <- seq(-2,2,0.05)
> plot(x,dnorm(x),type="l")
> x <- seq(-3,3,0.05)
> plot(x,dnorm(x),type="l")
> lines(x,pnorm(x),col="red")
> plot(x,dnorm(x),type="l",ylim=c(0,1))
> lines(x,pnorm(x),col="red")
> plot(x,x^2,type="l")
> abline(1,-1)
> abline(v=2)
> abline(h=2,col="blue")
> # standard Gauss/ normalis eo.
> # surusegfuggveny
> plot(x,dnorm(x),type="l",ylim=c(0,1))
> # eloszlasfuggveny
> lines(x,pnorm(x),col="red")
> # kvantilisfuggveny
> # spec. eset: median:
> abline(h=0.5,lty=2)
> abline(v=0,lty=2)
> abline(h=0.7,col="blue")
> qnorm(0.7)
[1] 0.5244005
> abline(v = qnorm(0.7),col="blue")
> ?quantile
> plot(x,pnorm(x),tyle="l",col="red")
Warning messages:
1: In plot.window(...) : "tyle" is not a graphical parameter
2: In plot.xy(xy, type, ...) : "tyle" is not a graphical parameter
3: In axis(side = side, at = at, labels = labels, ...) :
  "tyle" is not a graphical parameter
4: In axis(side = side, at = at, labels = labels, ...) :
  "tyle" is not a graphical parameter
5: In box(...) : "tyle" is not a graphical parameter
6: In title(...) : "tyle" is not a graphical parameter
> plot(x,pnorm(x),type="l",col="red")
> plot(x,pnorm(x),type="l",col="red",ylim=c(-3,3))
> lines(q,qnorm(q))
Error in qnorm(q) : Non-numeric argument to mathematical function
> q <- seq(0,1,0.05)
> lines(q,qnorm(q))
> q <- seq(0,1,0.025)
> lines(q,qnorm(q))
> plot(x,pnorm(x),type="l",col="red",ylim=c(-2,2),
+ xlim=x(-2,2))
Error in x(-2, 2) : could not find function "x"
> q <- seq(0,1,0.025)
> lines(q,qnorm(q))
> plot(x,pnorm(x),type="l",col="red",ylim=c(-2,2),
+ xlim=c(-2,2))
> q <- seq(0,1,0.025)
> lines(q,qnorm(q))
> abline(0,1,lty=2)
> q2 <- c(0.25,0.5,0.75)
> qnorm(q2)
[1] -0.6744898  0.0000000  0.6744898
> points(q2,qnorm(q2),pch=1:3)
> points(qnorm(q2),q2,pch=1:3)
> a <- binom(10,size=20,prob=0.8)
Error in binom(10, size = 20, prob = 0.8) : 
  could not find function "binom"
> a <- rbinom(10,size=20,prob=0.8)
> a
 [1] 12 16 16 15 16 14 15 16 15 17
> b <- sort(a)
> b
 [1] 12 14 15 15 15 16 16 16 16 17
> quantile(a,0.5)
 50% 
15.5 
> quantile(a,0.2)
 20% 
14.8 
> quantile(a,0.8)
80% 
 16 
> a <- rbinom(11,size=20,prob=0.8)
> b <- sort(a)
> a
 [1] 16 18 14 17 19 15 18 13 18 18 16
> b
 [1] 13 14 15 16 16 17 18 18 18 18 19
> quantile(a,0.5)
50% 
 17 
> quantile(a,0.2)
20% 
 15 
> quantile(a,0)
0% 
13 
> quantile(a,1)
100% 
  19 
> boxplot(a)
> a
 [1] 16 18 14 17 19 15 18 13 18 18 16
> 20*0.8
[1] 16
> b
 [1] 13 14 15 16 16 17 18 18 18 18 19
> e <- rexp(100)
> e <- rexp(100,rate=0.5)
> boxplot(e)
> boxplot(e,range=1.5)
> boxplot(e,range=3)
> boxplot(e,range=0)
> hist(e)
> e
  [1]  9.41120837  0.15132973  6.35794969
  [4]  1.53712856  1.72145103  2.91346200
  [7]  1.36664954  0.86302566  1.45575037
 [10]  0.94025349  1.33454567  1.18190331
 [13]  2.60347125  0.82209209  0.82858929
 [16]  3.05389329  0.78902190  2.98584577
 [19]  4.97212227  1.00383092  1.87060510
 [22]  0.75891283  0.28481846  0.56984228
 [25]  2.31655757  0.33948500  9.18714920
 [28]  1.10150691  1.49456863  0.37817818
 [31]  0.81908303  3.06161640  3.19308861
 [34]  3.36447840  0.12482629  3.58361341
 [37]  0.44913840  0.97781690  0.73648654
 [40]  2.57982911  1.08376967  2.11477896
 [43]  0.20624242  1.80591130  2.12274382
 [46]  0.01748098  0.09455032  0.02160701
 [49]  0.01643641  0.42396601  1.97056435
 [52]  5.46333500  1.17489237  1.00195256
 [55]  2.29642449  0.95775489  1.66604219
 [58]  4.32900815  1.49948331  0.17981033
 [61] 16.77564780  4.88181042  0.76477774
 [64]  1.15675590  7.04764334  1.50809637
 [67]  1.05379927  1.43597726  1.33154039
 [70]  0.41482255  1.79618138  0.39701772
 [73]  4.03961980  0.90501741  0.32785228
 [76]  1.36714617  1.00081905  1.24310881
 [79]  0.86010216  0.64917181  6.57027622
 [82]  1.32705516  2.65620227  1.34749561
 [85]  0.36360356  0.84406967  2.19135613
 [88]  4.04898429  0.66823980  0.05778139
 [91]  0.54473626  3.41638714  3.16678543
 [94]  1.24499031  1.81391037  3.08175204
 [97]  0.49558365  1.05491319  0.77901313
[100]  0.76819671
> hist(e,breaks=3)
> hist(e,breaks=20)
> hist(a)
> c <- binom(30,size=20,prob=0.8)
Error in binom(30, size = 20, prob = 0.8) : 
  could not find function "binom"
> c <- rbinom(30,size=20,prob=0.8)
> hist(c)
> c <- rbinom(30,size=20,prob=0.8); hist(c)
> c <- rbinom(30,size=20,prob=0.8); hist(c)
> hist(c,probability=TRUE)
> e
  [1]  9.41120837  0.15132973  6.35794969
  [4]  1.53712856  1.72145103  2.91346200
  [7]  1.36664954  0.86302566  1.45575037
 [10]  0.94025349  1.33454567  1.18190331
 [13]  2.60347125  0.82209209  0.82858929
 [16]  3.05389329  0.78902190  2.98584577
 [19]  4.97212227  1.00383092  1.87060510
 [22]  0.75891283  0.28481846  0.56984228
 [25]  2.31655757  0.33948500  9.18714920
 [28]  1.10150691  1.49456863  0.37817818
 [31]  0.81908303  3.06161640  3.19308861
 [34]  3.36447840  0.12482629  3.58361341
 [37]  0.44913840  0.97781690  0.73648654
 [40]  2.57982911  1.08376967  2.11477896
 [43]  0.20624242  1.80591130  2.12274382
 [46]  0.01748098  0.09455032  0.02160701
 [49]  0.01643641  0.42396601  1.97056435
 [52]  5.46333500  1.17489237  1.00195256
 [55]  2.29642449  0.95775489  1.66604219
 [58]  4.32900815  1.49948331  0.17981033
 [61] 16.77564780  4.88181042  0.76477774
 [64]  1.15675590  7.04764334  1.50809637
 [67]  1.05379927  1.43597726  1.33154039
 [70]  0.41482255  1.79618138  0.39701772
 [73]  4.03961980  0.90501741  0.32785228
 [76]  1.36714617  1.00081905  1.24310881
 [79]  0.86010216  0.64917181  6.57027622
 [82]  1.32705516  2.65620227  1.34749561
 [85]  0.36360356  0.84406967  2.19135613
 [88]  4.04898429  0.66823980  0.05778139
 [91]  0.54473626  3.41638714  3.16678543
 [94]  1.24499031  1.81391037  3.08175204
 [97]  0.49558365  1.05491319  0.77901313
[100]  0.76819671
> hist(e,probability=TRUE)
> density(e)

Call:
        density.default(x = e)

Data: e (100 obs.);     Bandwidth 'bw' = 0.4329

       x                y            
 Min.   :-1.282   Min.   :0.0000000  
 1st Qu.: 3.557   1st Qu.:0.0001321  
 Median : 8.396   Median :0.0085726  
 Mean   : 8.396   Mean   :0.0516070  
 3rd Qu.:13.235   3rd Qu.:0.0372789  
 Max.   :18.074   Max.   :0.3944957  
> lines(density(e))
> lines(density(e,bw=0.2),col="red")
> lines(density(e,bw=0.8),col="blue")
> z <- seq(0,18,0.5)
> lines(z,dexp(z,rate=0.5),col="green")
> ecdf(e)
Empirical CDF 
Call: ecdf(e)
 x[1:100] = 0.016436, 0.017481, 0.021607,  ..., 9.4112, 16.776
> plot(ecdf(e))
> plot(ecdf(c))
> c
 [1] 15 16 14 15 15 19 18 17 18 17 14 16 10 17 13
[16] 15 17 18 18 14 12 15 16 15 15 17 15 15 16 16
> d <- rnorm(15)
> plot(ecdf(d))
> t <- seq(-2,2,0.1)
> lines(t,pnorm(t),col="blue")
> runif(20)
 [1] 0.51944374 0.74922721 0.61530154 0.17344153
 [5] 0.75018591 0.54338187 0.24776057 0.06214543
 [9] 0.29558069 0.32893479 0.56529539 0.97857778
[13] 0.61529941 0.14082190 0.43708252 0.12809479
[17] 0.51372270 0.21564651 0.38409970 0.08101150
> runif(20)*6
 [1] 3.97569455 2.23389177 0.25465354 2.45193328
 [5] 4.08516694 1.93378926 4.82803930 4.78380729
 [9] 3.42380901 5.88531771 0.61229582 0.22282280
[13] 4.76473280 1.09778773 5.15576664 3.86546303
[17] 4.58232355 3.67552009 1.37795531 0.05161489
> ceiling(runif(20)*6)
 [1] 3 1 3 1 2 5 1 1 1 4 3 3 5 6 4 5 2 4 6 3
> ceiling(runif(20)*6) -> kocka
> plot(kocka)
> hist(kocka)
> kocka <- factor(kocka)
> kocka
 [1] 3 1 6 2 1 4 3 6 6 2 4 3 5 2 4 5 6 4 5 2
Levels: 1 2 3 4 5 6
> plot(kocka)
> ecdf(kocka)
Empirical CDF 
Call: ecdf(kocka)
 x[1:6] =      1,      2,      3,  ...,      5,      6
> plot(ecdf(kocka))
> pontok <- data.frame(x=rnorm(20),y=rnorm(20))
> pontok$halmaz <- round(runif(20))
> pontok
              x           y halmaz
1  -0.226133679 -0.85192462      0
2   0.460985271  0.35374305      0
3  -1.001925446 -0.24858220      1
4   0.787185619 -1.17748574      0
5   1.468528860  0.01496532      1
6  -0.961177252 -0.73214223      1
7   0.982066120 -0.73108603      1
8  -0.618485736  0.20513351      0
9   0.239948475  1.04212669      1
10 -1.045879266  1.19625048      1
11  0.806168941 -0.79313449      0
12 -0.090066391  0.61765605      0
13  1.265102111 -0.85386264      1
14  0.139771249 -1.14275037      1
15 -0.859182025  1.14952240      1
16 -2.221302043 -0.71297107      1
17 -0.590084206  1.22073895      0
18  0.006501349 -1.16847992      0
19  0.033644454  0.61331736      1
20  0.151421138 -0.10651809      1
> pontok$halmaz <- factor(pontok$halmaz)
> plot(pontok)
> plot(pontok$x,pontok$y,col=pontok$halmaz)
> coplot(pontok$y ~ pontok$x | pontok$halmaz)
> pontok$halmaz2 <- round(runif(20)*2)
> coplot(pontok$y ~ pontok$x | pontok$halmaz * pontok$halmaz2)
> pontok$halmaz2 <- factor(pontok$halmaz2)
> coplot(pontok$y ~ pontok$x | pontok$halmaz * pontok$halmaz2)
>