全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
1281 5
2016-03-23
QQ图片20160323155439.png
附件列表
QQ图片20160323155439.png

原图尺寸 10.17 KB

QQ图片20160323155439.png

二维码

扫码加我 拉你入群

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

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

全部回复
2016-3-23 16:04:57
请问咋做?
二维码

扫码加我 拉你入群

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

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

2016-3-23 21:48:54
y=function(x)
{
if(x>1.1)
  print(1.1)
else
   if(x<=1.1&x>=-1.1)
      print(x)
    else
      print(-1.1)
}
二维码

扫码加我 拉你入群

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

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

2016-3-23 23:06:00
作图如下:
复制代码
二维码

扫码加我 拉你入群

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

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

2016-3-23 23:29:18
版主答得很好了,我写点注释
f=function(x){
if(x>1.1) {return(1.1)      #让这个函数可以返回值
}else if(x>=-1.1&x<=1.1) {return(x)
} else {return(-1.1)}
}

x=seq(-4,4,length.out=200)    #得出一个向量,后面再用函数得出散点(因点很多近似成线,r作图基本都这样)
y=sapply(x,f)            #将f函数作用于x的每个元素得出对应函数值向量  sapply即simple apply,是lpply(list apply)的衍生函数
plot(x,y,type="l",col="black",lwd=2)   #plot的参数你就自己查啦
二维码

扫码加我 拉你入群

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

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

2016-3-24 09:13:12
讲的很仔细,有收获
二维码

扫码加我 拉你入群

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

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

栏目导航
热门文章
推荐文章

说点什么

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群