标题说.
我的载体
TF <- c(F,T,T,T,F,F,T,T,F,T,F,T,T,T,T,T,T,T,F)
Run Code Online (Sandbox Code Playgroud)
我想要的输出
[1] 0 1 2 3 0 0 1 2 0 1 0 1 2 3 4 5 6 7 0
Run Code Online (Sandbox Code Playgroud) 我有一个包含17个变量的数据集

可以在此链接上获得数据 http://www.uwyo.edu/crawford/stat3050/final%20project/maxwellchandler.txt
我想找到变量之间的重要交互。
例如
fitcivilian<-lm(Civilian~Stock+Terrorism+log(Firepower)+Payload+Bombs*Temperature+FirstAid+Spies+Personnel+IG88, data=data)
Run Code Online (Sandbox Code Playgroud)

炸弹*温度很重要
我想做的是针对每个其他变量测试每个变量,
喜欢做
炸弹*温度
炸弹*凝固汽油弹
IG88 *武器
导弹*火力
等等,直到两者的每一种结合
这样,我可以找出每个变量之间是否存在重要的交互作用。
我知道如何手动进行操作,创建线性模型,然后对该模型进行总结,但是我希望能够创建一个测试每个变量的循环,因为要测试所有变量,将有很多条目。
我正在使用 moto 来测试我的代码库中的 aws 功能。我遇到的问题之一是,在测试 athena 时,查询状态无限期地保持在“QUEUED”状态,导致测试失败或超时。
下面是要测试的方法:
import time
import boto3
class Athena:
CLIENT = boto3.client("athena")
class QueryError(Exception):
"""A class for exceptions related to queries."""
@classmethod
def execute_query(cls, query, result_location, check_status=True,
time_limit=10):
"""
Execute a query in Athena.
"""
_result_configuration = {"OutputLocation": result_location}
_kwargs = {"QueryString": query, "ResultConfiguration":
_result_configuration}
response = cls.CLIENT.start_query_execution(**_kwargs)
query_id = response["QueryExecutionId"]
if check_status:
old_time = time.time()
while True:
status = cls.CLIENT.get_query_execution(
QueryExecutionId=query_id)
status = status["QueryExecution"]["Status"]["State"]
if status in ["SUCCEEDED", "FAILED", "CANCELLED"]:
if status == "FAILED": …Run Code Online (Sandbox Code Playgroud)