R을 처음 배우느라 미숙한 부분이 많아서 질문드립니다.
x y
1 T 12000
2 T 8000
3 F 0
4 F 1000
위의 표에서 x가 T이고 y가 10000 이상인 경우 "A등급" 출력
x가 T이고 y가 10000 미만인 경우 "B등급" 출력
x가 F이고 y가 0일 경우 "C등급" 출력
x가 F이고 y가 0이 아닐 경우 "D등급" 출력
위의 조건처럼 출력을 하고싶을 때, 다음과 같은 식을 만들었습니다.
function(x,y){
if(x == TRUE){
if(y>=10000){
print("A등급")
}else{
print("B등급")}
}else{
if(y==0){
print("C등급")
}else{
print("D등급")}
}}
여기서 등급 벡터를 생성한 후, 새로운 열에 등급 벡터를 넣고 싶어서 반복문을 통해 등급 벡터를 아래와 같이 만들려고 했습니다.
그런데 값이 의도한대로 일대일대응하여 4개 나오는 것이 아니라 32개의 값이 나오는데 잘 이해가 가지않아서 질문 드립니다.
일대일 대응하여 값이 나오도록 어떻게 반복문을 수정하는 게 좋을지 궁금합니다!
x <- c("T", "T", "F", "F")
y <- c(12000, 8000, 0, 1000)
for(i in x){
for(j in y){
print(check(i,j))}
}
Comment 1
-
cardiomoon
2019.05.31 08:28
x <- c(T,T,F,F)y <- c(12000, 8000, 0, 1000)for(i in 1:4){check(x[i],y[i])}
No. | Subject | Author | Date |
---|---|---|---|
1234 | 안녕하세요 에러 관련 문의드립니다 [1] | 화이팅 | 2023.09.19 |
1233 | 선형회귀분석 시 보정변수 사용 관련 질문드립니다. [2] | 전한울 | 2023.09.18 |
1232 | 그래프 관련 문의드립니다. | nanak | 2023.09.14 |
1231 | 영수증 메일로 받을수 있을까요? [1] | 딸기공주 | 2023.09.13 |
1230 | mycsv 관련 문의드립니다. [1] | 도삼 | 2023.09.12 |
1229 | matched group 을 대상으로 stratified cox | saga | 2023.09.06 |
1228 | IPTW 시 SMD 계산 관련 여쭙습니다. | 장한나 | 2023.09.04 |
1227 | 회귀분석 관련 문의드립니다. [2] | 전한울 | 2023.09.04 |
1226 | PSM matching 실행시 disconnected 됩니다... [1] | 맹구모션 | 2023.08.25 |
1225 | 메타분석_출간오류분석 관련 질문드립니다. [2] | 블루레몬 | 2023.08.21 |
1224 | plot 문의 드립니다. | 1122 | 2023.08.20 |
1223 | semMediation 설치문의 [2] | 마술샘 | 2023.08.11 |
1222 | 로지스틱 회귀분석 문의드립니다. [2] | JKJ | 2023.08.09 |
1221 | 지출 문의 드립니다. [1] | 블루레몬 | 2023.08.08 |
1220 | autoReg 실행 중 에러 [1] | pkjsdf123 | 2023.08.08 |
1219 | 영수증 처리 [1] | britnepak | 2023.07.28 |
1218 | multipleROC 커브 글을 따라가다 궁금한 것이 생겨서 질문드립니다. [2] | rgppwls | 2023.07.20 |
1217 | disconnected from server 오류 [2] | JKJ | 2023.07.13 |
1216 | mytable에서 변수 순서와 ztable적용시 변수가 숫자로 변형 [1] | 둥니맨 | 2023.07.12 |
1215 | box plot 시 X 축 label이 다 나오지 않아 질문드립니다. [2] | 난둥 | 2023.07.03 |