x<-311 # x=3
x
## [1] 311
3>4
## [1] FALSE
3==4
## [1] FALSE
a<-10
a
## [1] 10
a<-"hello"
a
## [1] "hello"
a<-c(1,2,3)
a
## [1] 1 2 3
max(a)
## [1] 3
min(a)
## [1] 1
mean(a)
## [1] 2
library(dplyr)
##
## 다음의 패키지를 부착합니다: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
mode(a)
## [1] "numeric"
is.numeric(a)
## [1] TRUE
length(a)
## [1] 3
x<-c(1,2)
y<-c("a","b")
xy<-c(x,y)
xy
## [1] "1" "2" "a" "b"
mode(xy)
## [1] "character"
1:5
## [1] 1 2 3 4 5
gender<-c("male", "female", "male")
bloodtype<-c("AB","O","B")
height<-c(170,175,165)
weight<-c(70,65,55)
df<-data.frame(gender,bloodtype,height,weight)
df
## gender bloodtype height weight
## 1 male AB 170 70
## 2 female O 175 65
## 3 male B 165 55
#352 1521 4467 73
car<-c("kia", "bmw", "toyota")
df2<-data.frame(df, car)
df2
## gender bloodtype height weight car
## 1 male AB 170 70 kia
## 2 female O 175 65 bmw
## 3 male B 165 55 toyota