B <- 999 # B에 99 대입


# mu.b와 sd.b에 NA 999개로 이루어진 벡터 대입

mu.b <- rep(NA, B)

sd.b <- rep(NA, B)


# i 1부터 999까지

 for (i in 1:B){

data.b <- sample(data$V1, replace=TRUE) # data.v1에서 복원 추출 샘플링하여 data.b에 대입

mu.b[i] <- mean(data.b) # data.b의 평균을 mu.b[i]에

sd.b[i] <- sd(data.b) #  data.b의 표준편차를 sd.b[i]에

}


이거 보고 대충 감 잡으삼

근데 이것도 모르면 R 기초가 아예 없는 건데