R-5_程序设计的.pptVIP

下载本文档

29
0
约1.53万字
约 54页
2017-08-18 发布于湖北
举报
版权申诉

R-5_程序设计的.ppt

1、本文档共54页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

R-5_程序设计的

写函数:中位数和均值的比值函数用该函数计算一万个(均值为1的)指数分布的中位数和均值的比 median.mean.ratio - function(x) { return(median(x)/mean(x)) } z - rexp(10000) median.mean.ratio(z) Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 函数函数之例:中位数和均值的比值函数用该函数计算一万个(均值为1的)指数分布的中位数和均值的比 median.mean.ratio - function(x){return(median(x)/mean(x))} z - rexp(10000) median.mean.ratio(z) 在函数中的{}中间,可以有多个语句;语句之间用换行或分号(;)分开. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 函数的编辑 fix(median.mean.ratio) 这时会出现一个记事本编辑器编辑并试图存了之后如果发生错误(不会存),往往会让你编辑改过但有语法错误的fix(); 如果还使用fix(median.mean.ratio)则是编辑以前的版本. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 函数函数可以有缺省值,例如 Expo=function(y,x=2){z=y^x;z} y=seq(0,1,length=100);plot(y,Expo(y),type=l) 函数可以不写return,这时最后一个值为return的值.为了输出多个值最好使用list. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. liti5_1.R: n=1:10; x=sin(n*pi/10); cat(x=,x) 例1 对n=1,2,…,10,求xn= 的值 source(E:/liti5_1.R) x=0.309017 0.5877853 0.809017 0.9510565 1 0.9510565 0.809017 0.5877853 0.309017 1.224606e-16 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Liti5_2.R: money=10000 years=0 while (money20000){ years=years+1; money=money*(1+2.52/100) } 例2 设银行年利率为2.52%。将10000元钱存入银行，问至少多长时间会连本带利翻一番？4.14 呢？ source(E:/liti5_2.R) years=28 此时 money= 20074.31 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 先建立R文件liti5_3.R定义函数f(x)，再在命令窗口输入fun1(2),fun1(-1)即可。 source(E:/liti5_3.R) fun1- function(x) { y=numeric(length(x));y[x1]=x[x1]^2+1; y[x=1]=2*x[x=1];cat(fun1=,y)} fun1(c(-1,2,3)) fun1=-2 5 10 例3: Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2