Question

我想知道为什么我会收到警告信息。

我的代码是

 univ_quali<-function(dataset){ print(cbind((addmargins(prop.table(dataset))), t(t(dataset))))}
> univ_quali(table(sex))
       [,1] [,2]
1 0.5471698   58
2 0.4528302   48

它有效但我有：

Warning message:
In cbind((addmargins(prop.table(dataset))), t(t(dataset))) :
  number of rows of result is not a multiple of vector length (arg 1)

Answer 1

如果您只是删除addmargins()功能，则不会发出警告：

univ_quali <- function(dataset){cbind(prop.table(dataset), t(t(dataset)))}
univ_quali(table(sex))
#            [,1] [,2]
#female 0.4245283   45
#male   0.5754717   61

数据（类似于previous post）

set.seed(24)
sex <- sample(c("male", "female"), 106, replace=TRUE)

带警告信息的功能

1 个答案: