第二项的代码存在一些问题。
首先,内循环 j 变量是控制乘积结果的,但却在内循环外不断增加,导致结果总是错误的。改为在内循环里递增,即可解决问题。
其次,f[i,1]=f[i,1]u[1,j] 这一行应该是用来更新 f[i,1] 的值,但却没有更新 j 的值。为了让程序正常执行,可以在此行下面加入 j=j+1。
以上是代码的修改,完整代码如下:
CD=function(x){ ##### x表示输入的设计矩阵#####
n=nrow(x)
m=ncol(x)
f=array(0,dim=c(n,1))
for(i in 1:n)
{
u=array(0,dim=c(1,m))
for(j in 1:m)
{
u[1,j]=1+(1/2)((x[i,j]-05)^2)^(1/2)-(1/2)(x[i,j]-05)^2
}
j=1
f[i,1]=1
while(j<=m) {
f[i,1]=f[i,1]u[1,j]
j=j+1
}
}
g=array(0,dim=c(n,n))
for(i in 1:n)
{
for(k in 1:n)
{
v=array(0,dim=c(1,m))
for(j in 1:m)
{
v[1,j]=1+(1/2)((x[i,j]-05)^2)^(1/2)+(1/2)((x[k,j]-05)^2)^(1/2)-(1/2)((x[i,j]-x[k,j])^2)^(1/2)
}
j=1
g[i,k]=1
zoom这个选项就可以调节了。
可以认为R是S语言的一种实现。
而S语言是由AT&T贝尔实验室开发的一种用来进行数据探索、统计分析和作图的解释型语言。
R作为一种统计分析软件,是集统计分析与图形显示于一体的。
1打开R语言开发环境,点击文件后新建程序文件,2在d出R编辑器中输入代码R,3点击R语言开发环境的保存按钮,在d出另存为对话框选择目标文件夹和文件名为,4关闭R语言编辑器,点去文件运行R语言脚本
以上就是关于如何将数学公式变成R代码,请大家帮我一下全部的内容,包括:如何将数学公式变成R代码,请大家帮我一下、R语言如何缩放方括号里面的代码、r语言怎么运行某一行代码等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)