R studio 문법 다지기!

## R 문법 다지기!##

factorial(5)
x = 'statistics'

----------------------------------
substr(x,3,6)
strsplit(x,"t")
k = paste('X', 1:4,sep="")
k

----------------------------------
z = paste("I am", "Fine")
z
sub("Fine", "Great", "z") # z 에서 fine을 찾아 great로 변경

----------------------------------
# 평균이 50이고 표준편차가 10인 정규분포를 따름

# rnorm(n,mean = 0 , sd = 1)

x = round(rnorm(10,50, 10))
x
mean(x)

sd(x)

diff(x)

----------------------------------
for(i in 1:9){
x = i *2;
print("*")
}
x = c(50,60,80,90,95)
for(i in length(x):1){
print(x[i])
}

----------------------------------
i = 1
while(i<=3){
print(i);
i = i+1

}
# ---------------------------------- 짝수만 출력할때
for(i in 1:10){
if(i%%2 == 0)
print(i)
}
# -----------------------------------홀수만 출력할때
for(i in 1:100){
cat(i," ")
if(i%%10== 0) cat('\n')

}
# cat을 사용하면 옆으로 쭉 찍힌다.
#----------------------------------
for(i in 1:10){
if(i%%2 == 0){cat("Even",i,"\n")}
else{cat(i,"is odd","\n")}
}

#-----------------------함수만들기-------------------------
getCircleArea <- function(x){
area <- 3.14 * x^2
return(area)
}

getCircleArea(3)

# --------------------두 수 비교하기------------------
getmax <- function(x,y){
if (x return(y)
else
print(x)
}
getmax(4,4)
getmax(5,6)