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] | 김승욱 | 2015.08.17 |
1233 | 자료 (xlsx or CSV) [2] | medi79 | 2015.08.31 |
1232 | 혹시 이런 질문 드려도 되는지 모르겠습니다. [5] | 고든 | 2015.09.07 |
1231 | RM ANOVA [2] | flocky | 2015.09.09 |
1230 | ANCOVA에 대해서 여쭤보고 싶습니다. [5] | 고든 | 2015.09.13 |
1229 | sensitivity, specificity 계산가능여부 여쭤봅니다. [2] | 곽미리 | 2015.09.16 |
1228 | 표만들기에서 질문드립니다. [3] | wiswis | 2015.09.22 |
1227 | Standard error [2] | R까기 | 2015.09.24 |
1226 | 결측값 처리와 관련하여 [3] | 화모기 | 2015.10.07 |
1225 | 표만들기_2차그룹변수로 했을 때 결과물 이상 [1] | 화모기 | 2015.10.10 |
1224 | 로지스틱 회귀분석 반응변수 수 제한 [3] | 화모기 | 2015.10.11 |
1223 | 향후 5년간 핵심 화두가 Cognitive Business가 될 것 같아 먼저 여기에 글을 올립니다. [2] | Ben | 2015.10.14 |
1222 | 파일업로드에 대해 문의드립니다. [3] | flapper | 2015.10.15 |
1221 | 스피어만 상관계수(Spearman correlation coefficient) [1] | ㅎㅎㅎ | 2015.10.15 |
1220 | PSM에 관해 문의 드립니다. [3] | sodium75 | 2015.10.19 |
1219 | ROC 분석과 관련하여 질문합니다. [1] | 송민지 | 2015.10.21 |
1218 | 파일 업로드 자체가 안되네요.. [3] | 주민호 | 2015.11.13 |
1217 | 사소한 건의사항이 있습니다. [1] | EPfunny | 2015.11.15 |
1216 | 나무분석 [3] | 조윤성 | 2015.12.02 |
1215 | 'x' and 'units' must have length > 0 에러 메세지 [4] | 빙하 | 2015.12.03 |