Question

：用R语言编写函数实现如下数学模型： y=300*(x1+2*x2)-90 ((x1+x2)>=100);

y=9-(x1+2*x2) (-90<=(x1+x2)<100);

y=NA ((x1+x2)<=-90)

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

y <- ifelse(x1+x2<=-90, NA, ifelse(x1+x2<100, 9-(x1+2*x2), NA))
用了一下凯氏ifelse这盯帆散个函数以及嵌套，直接给x1，x2赋值，带入公轿滑式

Answer 2

f<-function(x1,x2)
{
if(x1+x2>=-90&x1+x2<孙渣则顷100)
{
return(9-(x1+2*x2))
}
if(x1+x2<=-90)
{
return(NA)
}
else
{
print("则盯悄数值超限")
}
}