a********s
发帖数: 188 | 1 假设我们有个matrix叫X，一个vector叫y，例如：
> X
[,1] [,2]
[1,] 1 6
[2,] 2 7
[3,] 3 8
[4,] 4 9
[5,] 5 10
> y
[1] 1 2
R有没有什么function，让X的第一列除以y的第一个数，X的第二列除以y的第二个数？
不要用loop。
X/y的结果比较诡异。。。 | s*****n
发帖数: 2174 | 2 X / rep(y, each = dim(X)[1]) | D******n
发帖数: 2836 | 3 t(t(X)/y)
？
【在 a********s 的大作中提到】
: 假设我们有个matrix叫X，一个vector叫y，例如：
: > X
: [,1] [,2]
: [1,] 1 6
: [2,] 2 7
: [3,] 3 8
: [4,] 4 9
: [5,] 5 10
: > y
: [1] 1 2
| o****o
发帖数: 8077 | 4 z<-x/matrix(rep(y, 5), ncol=2, byrow=T)
【在 a********s 的大作中提到】
: 假设我们有个matrix叫X，一个vector叫y，例如：
: > X
: [,1] [,2]
: [1,] 1 6
: [2,] 2 7
: [3,] 3 8
: [4,] 4 9
: [5,] 5 10
: > y
: [1] 1 2
| o**m
发帖数: 828 | 5 这个赞
【在 D******n 的大作中提到】
: t(t(X)/y)
:
: ？
| a********s
发帖数: 188 | 6 多谢多谢，学到蛮多 ：）
关键应该还是回归于矩阵默认以列来存储数据。 | o****o
发帖数: 8077 | 7 good
【在 D******n 的大作中提到】
: t(t(X)/y)
:
: ？
| q****o
发帖数: 37 | 8 this is a typical "sweep" operation:
sweep(x,2,FUN="/",y) | q****o
发帖数: 37 | 9 this is a typical "sweep" operation:
sweep(x,2,FUN="/",y) | s*******a
发帖数: 705 | 10 scale(X, center=FALSE, scale=y)
？
【在 a********s 的大作中提到】
: 假设我们有个matrix叫X，一个vector叫y，例如：
: > X
: [,1] [,2]
: [1,] 1 6
: [2,] 2 7
: [3,] 3 8
: [4,] 4 9
: [5,] 5 10
: > y
: [1] 1 2
| G**Y
发帖数: 33224 | 11 create a new matrix, something like
y1 = matrix(rep(y, each=5), 5, 2)
then
x/y1
【在 a********s 的大作中提到】
: 假设我们有个matrix叫X，一个vector叫y，例如：
: > X
: [,1] [,2]
: [1,] 1 6
: [2,] 2 7
: [3,] 3 8
: [4,] 4 9
: [5,] 5 10
: > y
: [1] 1 2
|
|
