arrays - 使用 DO 循环重命名 SAS 中的一组变量

Question

我一直在尝试使用数组和 DO 循环从标度中重命名一组变量，但没有成功。这看起来是一个非常简单的任务。对我哪里出错有什么建议吗？

ARRAY ATRSS (i) ATRSS_1  ATRSS_12 ATRSS_13 ATRSS_25 ATRSS_29 ATRSS_30 ATRSS_32 ATRSS_33 ATRSS_35 ATRSS_36;;
Array DIS (10) $ DIS1-DIS10; 

DO i = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10;
    DIS (i) = ATRSS(i);
END;

我收到错误: 不允许混合使用隐式和显式数组下标。

谢谢!

Answer 1

数组 atrss atrss_1 ... ;

从第一行删除 (i) 就可以了。

我要指出的是，您本身并没有重命名 - 您不能那样重命名 - 但当然它可以实现相同的目标。

您可以进一步改进它，尽管它按原样工作正常:

array atrss atrss_1 atrss_12 atrss_13 atrss_25 atrss_29 atrss_30 atrss_32 atrss_33 atrss-35 atrss_36;
array dis(10);

do i = 1 to dim(atrss);
 dis[i] = atrss[i];
end;

如果您更改 atrss 中的元素数量，这会使其更加灵活。 do i = 1 to 10; 也是可以接受的 - 无论如何，比将它们逐个拼写出来要容易得多。