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