我有一个数据帧（df）。我希望用户在Shiny中输入一个短语。然后Shiny应用程序取出短语的最后两个单词，并根据那里的三元组过滤df。输出（DataTable）应显示在用户界面中。
但是，服务器功能找不到clc;
clear all;
close all;
format long;
d=717;
r1=60000;
r2=[61043; 62000];
Rx=[0; 10];
Ry=[11.212; 1];
k=-1.000953;
for o=1:1:size(Rx)
i=1;
for rho1=0:17.7:d
for theta=0:10:360;
rho=rho1;
x(i)=rho.*cosd(theta)+(Rx(o)*1000);
y(i)=rho.*sind(theta)+(Ry(o)*1000);
xx(i)=(((x(i))-(Rx(o)*1000))/d);
yy(i)=(((y(i))-(Ry(o)*1000))/d);
l(i)=sqrt(x(i).^2+(y(i)).^2);
c1=1/r1;
s11(i)=c1*(l(i).^2);
s12(i)=1+(sqrt(1-(1+k)*c1*c1*(l(i).^2)));
s1(i)=s11(i)/s12(i); %hyperbola sag
s2(i)=(r2(o)-sqrt((r2(o).^2)-(l(i).^2))); %Best fit sag
m(i)=abs((-s1(i)+s2(i)));
i=i+1;
end
end
dz(:,:,o)=m';
xn(:,:,o)=xx';
yn(:,:,o)=yy';
Z(:,:,o)=[dz(:,:,o) xn(:,:,o) yn(:,:,o)];
end
（也可能不是lastTwo()）。谁能告诉我为什么？
此外，我如何在lastOne()中提取列x3并在用户界面中打印？
df1答案 0 :(得分：0)
首先，lastOne和lastTwo应该是被动的，例如tokens。但是它仍然无法在我的计算机上运行，因为在您的代码中您没有指定包含word命令的包。