help.start() a <- 3 a -> b 2^3 a a <- 5 a b 2+3 2*3 2^3 2/3 3 %/% 2 3 %% 2 a == b a > 2 a >= 2 T F T & F T | F any(T,T,F) all(T,T,F) any(T,F,F) 2+3i 2/3 Inf NaN 6/0 Inf-Inf NA "abc" a L <- TRUE s <- "abc" t <- "3.14" mode(a) mode(s) mode(L) mode(Inf) is.numeric(a) t as.numeric(t) as.character(a) v <- c(1,3,-1) v v[1] v[3] v[5] v[0] v[-2] v v[4] <- 0 v v[6] <- -8 v v[2] <- 4 v a a[2] <- 4 a 2:5 seq(2,5) seq(2,5,0.5) ?seq seq(2,5,length=7) seq(2,5,length=5) seq(length=5,from=2,to=5) seq(length=5,from=2,by=2) runif(5) ?distributions w <- 3:10 w w[1:3] w[3:5] w[c(1,2,1,1)] v x <- c(0,1) x[c(1,2,1,2,1,2)] w[-(2:4)] w[-2:4] w w > 5 x y <- c(3,5) x+y x * y 2*y 2^y w x x + w rep(x,4) w v v+w w > 5 w[w>5] w[c(T,F)] w[seq(1,length(w),2)] seq(1,length(w),2) length(w) mode(w) class(w) is.vector(w) w <- w[-5] w z <- c("abc",3) z A <- 1:6 A dim(A) dim(A) <- c(2,3) A B <- 1:12 b B dim(B) <- c(2,3,2) B C <- matrix(1:6,2,3,byrow=TRUE) C A A[2,3] A[2,] A[,3] A[2,1:2] A[2,c(1,3)] A[-1,-2] A[3,] <- 2 A[3,] <- c(7,8,9) A A[3,1] <- 1 A[3,1] 7 1 A[3,1] = 1 C[3,] <- c(7,8,9) dim(C) <- c(3,3) C[7] <- 7 C C[c(8,9)] <- c(8,9) C dim(C) <- c(3,3) C C[1,4] <- 4 C[2,2] <- -1 C C[9] C[2,] C[2] B C A D <- A + 2 A D A * D A + D A %*% C A %*% D y z x v w u <- 1:3 A %*% u u %*% C u %*% u crossprod(u,u) outer(u,u) t(A) A C det(C) solve(C) solve(C,u) eigen(C) lista <- list(str = "abc", num = 3, 4, vekt = c(1,2,3)) lista lista[1] lista[[3]] lista[[1]] lista$str list[1] <- "123" list[[1]] <- "123" lista[1] <- "123" lista lista[[1]] <- "xzy" lista names(lista) names(lista)[2] <- "szam" lista names(lista)[4] <- "" lista names(lista)[4] <- "vekt" lista lista[4] lista[4][2] lista[[4]] lista[[4]][2] lista$vekt lista$vekt[2] data() morley ?morley head(morley) edit(morley) edit(iris) x <- rnorm(12) x y <- rnorm(12) runif(12) round(runif(12)) .Last.value round(runif(12)) halmaz <- .Last.value pontok <- data.frame(xkoord = x, ykoord = y, halmaz = halmaz) pontok pontok[2,3] pontok[2,] pontok[,3] pontok[3] pontok$halmaz pontok[14,] <- c(rnorm(1),rnorm(1),1) pontok pontok[5] <- 2 pontok[4] <- 2 pontok pontok[4] <- c(1,2,3) pontok[4] <- c(1,2) pontok pontok$tav <- sqrt(pontok$xkoord^2 + pontok$ykoord^2) pontok pontok[-4] pontok[-4] -> pontok class(pontok$halmaz) class(pontok) mode(pontok) d D class(D) class(B) pontok factor(pontok$halmaz) pontok$halmaz <- factor(pontok$halmaz) halmaz$xkoord pontok$xkoord pontok$halmaz mean(pontok$tav) pontok <- pontok[-13,] pontok mean(pontok$tav) tapply(pontok$tav,pontok$halmaz,mean) pontok[14,] pontok["14",] row.names(pontok) pontok2 <- pontok[4:7] pontok2 <- pontok[4:7,] pontok2 pontok2[2] pontok2[2,] pontok2["2",] pontok2["5",] names(pontok) names(pontok)[3] plot(pontok$xkoord,pontok$ykoord) plot(pontok$ykoord) plot(pontok$halmaz) plot(pontok$xkoord,pontok$ykoord) plot(pontok$xkoord,pontok$ykoord,col="red") plot(pontok$xkoord,pontok$ykoord,col=3) plot(1:12,1:12,col=1:12) plot(pontok$xkoord,pontok$ykoord,col=pontok$halmaz) plot(pontok$xkoord,pontok$ykoord,pch="x") plot(pontok$xkoord,pontok$ykoord,pch=4) plot(1:12,1:12,pch=1:12) plot(pontok$xkoord,pontok$ykoord,pch=pontok$halmaz) plot(pontok$xkoord,pontok$ykoord,pch=as.vector(pontok$halmaz)) plot(pontok$xkoord,pontok$ykoord,pch=as.numeric(pontok$halmaz)) plot(pontok$xkoord,pontok$ykoord,pch=as.numeric(pontok$halmaz),col=pontok$halmaz) attach(pontok) xkoord halmza halmaz tav detach(pontok) xkoodr xkoord ls() rm(halmaz,list,a) ls() a <- 3 b <- 4 a+b