R语言新手求助 大神主卧一臂之力

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

x=runif(100,0,3)
y=-1.5*(x-3)+rnorm(100,0,1)
X=matrix(,nr=100,nc=11)
k=seq(length=11,from=0.25,to=2.75)
i=1:100
j=1:11
if (x<k[j]) X[i,j]=0 else X[i,j]=x-k[j]
警告信息：
1: In x < k[j] : 长的对象长度不是短的对象长度的整倍数
2: In if (x < k[j]) X[i, j] = 0 else X[i, j] = x - k[j] :
条件的长度大于一，因此只能用其第一元素
3: In x - k[j] : 长的对象长度不是短的对象长度的整倍数

如上 旨在做一矩阵X[i,j]=0 当x<=k[j]时；x>k[j]时，取X[i, j] = x - k[j]

X=(x-k[1],```,x-k[11])

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：一臂之力 新手求助 R语言 matrix length matrix

这样？

1. x=runif(100,0,3)
   
2. ##x[1]
   
3. length(x)
   
4. y=-1.5*(x-3)+rnorm(100,0,1)
   
5. X=matrix(,nr=100,nc=10)
   
6. k=seq(length=11,from=0.25,to=2.75)
   
7. for (i in 1:100) {
   
8. for (j in 1:10) {
   
9. if (x[i]<k[j]) X[i,j]=0 else X[i,j]=x[i]-k[j]
   
10. }
    
11. }

复制代码

ywh19860616 发表于 2014-3-13 16:15
这样？

感激不尽 谢谢你

1. x=runif(100,0,3)
   
2. y=-1.5*(x-3)+rnorm(100,0,1)
   
3. X=matrix(,nr=100,nc=11)
   
4. k=seq(length=11,from=0.25,to=2.75)
   
5. i=100
   
6. j=11
   
7. 
   
8. X=sapply(1:j,function(ii) ifelse(x<k[ii],0,x-k[ii]))

复制代码

我也来个吧    话说Y干嘛的？

kikomuzi 发表于 2014-3-13 16:21
感激不尽 谢谢你

楼主请核实哈，木有很明白你的用意，你看下4楼的答案

yywan0913 发表于 2014-3-13 16:28
我也来个吧    话说Y干嘛的？

(x,y)作为样本的随机点 对其拟合 做回归分析 研究结点个数惩罚参数大小