201608029

홈피에 내 분석 결과를 업로드

a<- c(1,2,3,4,5)
b<- c(5,4,3,2,1)
a
b
#실행은 ctrl+enter
length(a) #벡터의 요소 수

a+b
a+1
a <- a+b
a
print("출력")
print(a)
#여러문장을 인터프리터 형식으로 실행
#file-new File-Markdown
#Knit버튼 누르면 문서가 나온




#자료형, 변수, 변수 리스트
#R 벡터, 테이블(행렬), 데이터프레임
#제어문
#함수정의 -> 클래스/오브젝트/패키지

#데이터프레임(행과 열)-열우선
w <- c(50, 45, 30, 80, 70)
h <- c(165, 150, 130, 180, 170)
w
h
ls()
mean(w)

#집계함수---sum(), mean(), sd(), var(), ...
mw <- mean(weight)
mw
mh <- mean(height)
mh

#몸무게와 키를 테이블로 저장
data.frame(weight,height) #두개의 열
#데이터 프레임함수의  인수는 각 열
tbl <- data.frame(weight,height)
tbl
#tbl은 테이블이어서 2차원 배열과 동일하게 생각
name <- c("일","이","삼","사","오")
name
tbl <- data.frame(weight,height,name)
tbl
tbl[1,1] #1행1열
tbl[1,3]
tbl[1, ] #1행에 있는 모든 것을 출력
tbl[ ,1] #1열의 모든행 출력(weight)
#어떤 자료형이든 그 구조를 확인하려면 반드시 str() : structure
mtcars

str(mtcars)
str(tbl) #분석: 5행 3열 짜리 표 형식의 자료구조
#$: 변수
#표 형식의 데이터프레임(행,열)의 임의의 열(변수)를 활용해서 계산하는것 까지
tbl$weight
tbl$height
tbl$name
plot(tbl$weight,tbl$height, col="red", pch="*", cex=1.4)

colors() #R의 표준색상 레이블

sum<-0
for(i in 1:100)  #i가 1~100까지 인동안 i를 찍어다
{
  sum=sum+i
  
}
print(sum)



print("sum :1~100")
print(sum)



#c언어에 %(나머지)
# %%(나머지)
10%%2
10%%2==0


#짝수의 합
sum<-0
for(i in 1:100)  #i가 1~100까지 인동안 i를 찍어다
{
  if(i%%2==0)
  {
    sum=sum+i
  }
  
}
print(sum)