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 |
---|---|---|---|
1253 | logistic regression 명령어 문의드립니다. [2] | 로렌쵸메디치 | 2023.11.22 |
1252 | spss 파일 불러오기. [1] | 통계린 | 2023.11.22 |
1251 | PSM 매칭변수 숫자 관련 문의입니다. [1] | 오하나 | 2023.11.22 |
1250 | Multiple imputation 관련 질문 및, age adjusted incidence rate 관련 질문을 드립니다. | YSKBH | 2023.11.15 |
1249 | semMediation 설치 재문의드립니다 [3] | 마술샘 | 2023.11.11 |
1248 | 안녕하세요. 정회원 문의 [1] | lionking | 2023.11.06 |
1247 | PSM 관련 질문드립니다. | dr. | 2023.11.05 |
1246 | ggplot [1] | 통계린 | 2023.10.30 |
1245 | 정회원 [1] | 통계린 | 2023.10.29 |
1244 | PSM 관련 질문 드립니다. [2] | 로렌쵸메디치 | 2023.10.25 |
1243 | forest plot 그림이 전체가 다 나오지 않습니다. [1] | joyguni | 2023.10.08 |
1242 | PSM caliper default 값 관련 문의드립니다. [1] | Ooppps | 2023.10.05 |
1241 | reliability test tool,,, [1] | FAdavid | 2023.10.05 |
1240 | 정회원 가입 확인 요청드립니다. [1] | osman | 2023.10.03 |
1239 | 생존분석, cox 회귀 관련 기초적인 질문 입니다. | 만니톨 | 2023.09.27 |
1238 | Twang-mnps에서 매칭된 데이터를 추출하는 방법 좀 알려주세요 | Dorocy | 2023.09.26 |
1237 | 영수증 발급을 부탁드립니다. [1] | 규빈어멈 | 2023.09.26 |
1236 | 정회원 확인 [2] | lionking | 2023.09.24 |
1235 | autoReg 에러 문의드립니다 [1] | 소소 | 2023.09.23 |
1234 | 안녕하세요 에러 관련 문의드립니다 [1] | 화이팅 | 2023.09.19 |