R语言 循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. for (i in 1:l) {
   
2. #12
   
3. if (data[i,6] >= 5*pi/12 && data[i,6]< 7*pi/12) {
   
4. s[1]++
   
5. }
   
6. #1
   
7. else if (data[i,6] >= 3*pi/12 && data[i,6]< 5*pi/12) {
   
8. s[2]++
   
9. }
   
10. #2
    
11. else if (data[i,6] >= pi/12 && data[i,6]< 3*pi/12) {
    
12. s[3]++
    
13. }
    
14. #3
    
15. else if (data[i,6] >= -pi/12 && data[i,6]< pi/12) {
    
16. s[4]++
    
17. }
    
18. #4
    
19. else if (data[i,6] >= -3*pi/12 && data[i,6]< -pi/12) {
    
20. s[5]++
    
21. }
    
22. #5
    
23. else if (data[i,6] >= -5*pi/12 && data[i,6]< -3*pi/12) {
    
24. s[6]++
    
25. }
    
26. #6
    
27. else if (data[i,6] >= -7*pi/12 && data[i,6]< -5*pi/12) {
    
28. s[7]++
    
29. }
    
30. #7
    
31. else if (data[i,6] >= -9*pi/12 && data[i,6]< -7*pi/12) {
    
32. s[8]++
    
33. }
    
34. #8
    
35. else if (data[i,6] >= -11*pi/12 && data[i,6]< -9*pi/12) {
    
36. s[9]++
    
37. }
    
38. #9
    
39. else if (data[i,6] >= 11*pi/12 && data[i,6]< 13*pi/12) {
    
40. s[10]++
    
41. }
    
42. #10
    
43. else if (data[i,6] >= 9*pi/12 && data[i,6]< 11*pi/12) {
    
44. s[11]++
    
45. }
    
46. #11
    
47. else (data[i,6] >= 7*pi/12 && data[i,6]< pi/9) {
    
48. s[12]++
    
49. }
    
50. }

复制代码

如图的程序运行老是通不过 怎么办？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 Data else ELS LSE

这又不是C语言，怎么会有s[1]++。

额 C语言看多了

qoiqpwqr 发表于 2012-6-7 01:10
这又不是C语言，怎么会有s[1]++。

还有一个问题，如何在text函数中输出整数？
text(4*cos(pi/2), 4*sin(pi/2), "F=M<H(%d)", s[1])