2015年09月26日
2016-07-23 18:11
134 查看
Veg <- read.table(file = "Vegetation2.txt",header = T)
plot(x=Veg$BARESOIL,y=Veg$R,xlim = c(0,45),ylim = c(4,19))
M.Loess <- loess(R~BARESOIL,data = Veg) #对数据进行计算,Loess平滑
FIT <- fitted(M.Loess) #拟合Ord1 <- order(Veg$BARESOIL)
lines(Veg$BARESOIL[Ord1],FIT[Ord1],lwd=3,lty=2,col=14) #在图上添线
plot(x=Veg$BARESOIL,y=Veg$R,xlim = c(0,45),ylim = c(4,19))
M.Loess <- loess(R~BARESOIL,data = Veg) #对数据进行计算,Loess平滑
FIT <- fitted(M.Loess) #拟合Ord1 <- order(Veg$BARESOIL)
lines(Veg$BARESOIL[Ord1],FIT[Ord1],lwd=3,lty=2,col=14) #在图上添线
相关文章推荐
- 2015年9月25日
- android开发中WebView控件的实例与注意要点——个人主页浏览器简易实现
- 【杭电】[1052]Tian Ji -- The Horse Racing
- 2015年09月22日
- Android中各类Dialog实例——交互
- zend studio项目显示点开头的文件
- 链表
- Border边框
- 封装控件的原理
- qt-qml移动开发之在ios上开发和部署app流程简介
- 数组与数组队列
- Hust oj 1033 487-3279(map)
- nyist 1030 Yougth's Game[Ⅲ]
- 参数传递及内存分析
- 类的继承、方法重写、自动转型
- POJ 3450--->Corporate Identity(后缀数组求多个字符串的公共子串)
- 登陆界面、事件与创意画板总结
- 类与对象
- 实现登陆界面 并且对输入内容进行提取判断 做出反馈
- NYOJ 91 阶乘之和(贪心)