기초부터 튼튼히

a <- 5 # 라고 하면 스칼라가 아니라 한 개의 값이 있는 벡터다.

object1 <- 1 object2 <- 2 object1 <- object2 object1 # [1] 2

object1 <- 1 object2 <- 2 object1 <- object2 object2 <- 100 object1 # [1] 2

cat("The zero occurs at", 2*pi, "radians", "\n") #The zero occurs at 6.283185 radians fib<-c(0,1,1,2,3,5,8,13,21,34) cat("The first few Fibonacci numbers are:", fib, "...\n") #The first few Fibonacci numbers are: 0 1 1 2 3 5 8 13 21 34 ... cat(list("a","b","c")) #Error in cat(list("a", "b", "c")) : argument 1 (type 'list') cannot be handled by 'cat'

foo=3 print(foo) # [1] 3 5->fum print(fum) # [1] 5

excel1 <- read.csv("example_studentlist.csv")

a <- c(1,3,5,6,9) is.vector(a) # [1] TRUE a <- 1 # 최소 단위가 벡터이기 때문에 is.vector(a) # [1] TRUE

# 문자열도 벡터로 만들 수 있다. a <- c("첫 번째","두 번째","세 번째") a

a <- c(1,2,5,"점심") a # 분명 세번째까지는 정수고 네번째는 문자열이지만 결론은 모든 값을 문자열로 바꿔버린다. # [1] "1" "2" "5" "점심"

v1<-c(1,2,3) v2<-c(4,5,6) c(v1,v2) # [1] 1 2 3 4 5 6

object1 <- c(1,3,8,9) # 맨끝에 값을 추가하고 싶다면 object1 <- c(object1,11) # 앞에 넣고 싶다면 object1 <- c(1, object1) # 중간에 넣고 싶다면 object1 <- append(object1,99,after=2) # 앞에 두개 뒤의 위치 # 중간 어떤 값을 삭제하고 싶다면 object1 <- object1[-2] # 두번째 위치의 값을 삭제 # 맨 끝 값을 삭제하고 싶다면 object1 <- object1[-length(object1)] # 특정 위치의 값을 바꾸고 싶다면 object1[3] <- 9 # 3번째값을 9로 변경 # 5라는 값을 모두 100으로 바꾸고 싶다면 object1 <- c(1,2,3,1,2,3,1,2,3,5,1,2,3,5,1,2,3) object1 object1[object1 == 5] <- 100 object1

ls()

ls.str() # 여기서 .str()은 structure를 의미

rm(객체명,객체명2,객체명3)

rm(list=ls())

1:5 #[1] 1 2 3 4 5 seq(from=1,to=5,by=2) #[1] 1 3 5 rep(1, times=5) #[1] 1 1 1 1 1 9:0 #[1] 9 8 7 6 5 4 3 2 1 0 # seq함수는 by말고도 쓸 수 있는 인자들이 있다. length.out은 결과값의 길이다 seq(from=0,to=20,length.out=5) #[1] 0 5 10 15 20 seq(from=0,to=100,length.out=5) [1] 0 25 50 75 100 # seq함수는 실수로 구성된 수열도 만들 수 있다 seq(from=1.0, to=2.0, length=5) #[1] 1.00 1.25 1.50 1.75 2.00

sink("output.txt") x<-1 y<-2 x+y sink() # 반드시 써줘야 다시 console창으로 돌아온다.

cat(data, file="analysisReport.out") cat(results, file="analysisReport.out", append=True) cat(conclusion, file="analysisReport.out", append=True)

con<-file("analysisReport.out","w") # 파일열기 cat(data, file=con) cat(results, file=con) cat(conclusion, file=con) close(con) # 파일 닫기

records <-read.fwf("fixed-width.txt", widths=c(10,10,4,-1,4)) # widths는 각 열마다 몇 개의 너비로 되어있는지 적어주는데,이때, 음수는 양쪽 열의 # 공백 수를 의미한다. 즉 위의 데이터는 총 4개의 열로 되어있다. # 열 이름을 바꾸기 위해 col.names 인자를 사용한다 records <-read.fwf("fixed-width.txt", widths=c(10,10,4,-1,4), col.names=c("Last","First","Born","Died"))