R통계 (통계분석 - 벡터 생성, for문, 가위바위보 게임)

소개글

아래 문제에 대한 R 코드 소스입니다. 레포트에는 문제와 답안이 모두 있습니다.

-----------------------------------------------------------------------------

1. 랜덤으로 성적 벡터를 만들어서 기술통계량 구한 뒤 출력하기. (평균, 분산, 중앙값, 상관계수 등)
2. 학생들의 점수에 대한 학점 산출하기 (A~F)
3. 정규분포 따르는 데이터셋 생성하고 평균 검정하여 결과 출력.
4. 세 과목에 대한 학생들의 점수 행렬을 랜덤으로 생성한 뒤, 과목별 최고점을 받은 학생을 찾아서 출력하는 과정을 10번 반복.
5. 컴퓨터와 가위바위보 게임 하는 프로그램 만들기. 결과 출력.

목차

1. 문제 (1~5)
2. 답안 (1~5) - R 코드로 작성되었습니다.

본문내용

---------------------------------- 답안 중에서 ----------------------------------


(전략)

2.

# c1, c2 : 1,2반 성적 (1번 문제에서..)

grade1=rep(0,53)
grade2=rep(0,53) # 학점을 입력하기 위한 행렬 생성

for (i in 1:53) # 1반 grade
if (c1[i]>=90) grade1[i]="A" else
if (c1[i]>=80 & c1[i]<90) grade1[i]="B" else
if (c1[i]>=70 & c1[i]<80) grade1[i]="C" else
grade1[i]="F"

(중략)



3.


# 모집단의 표준편차가 알려져 있다고 가정.
# 즉, 표본평균의 분포는 normal이다.

data=rnorm(30,mean=30, sd=5)
cat("mu값을 입력하시오. 유의수준 5%에서 검정합니다.n(단,모집단의 표준편차는 5로 알려져 있습니다.)n")
mu=scan() # mu값을 입력받음

xbar=mean(data) # 표본평균 계산
z=(xbar-mu)/(5/sqrt(30)) # 검정 통계량 (sigma=5 known -> normal)

lb=qnorm(0.025)
ub=qnorm(0.975)

(중략)



4.

int=sample(30:100,53) # 통입점수
lin=sample(30:100,53) # 선대점수
dif=sample(30:100,53) # 미적점수
M=cbind(1:53,int,lin,dif) # 학생번호, 과목별 점수를 행렬로 통합
dimnames(M)[[2]]=c("번호","통입","선대","미적") # 행렬의 열이름 지정

(후략)

참고 자료

없음