允许用户在输出列表之间进行选择的功能

Question

刚开始 R，我被要求创建一个函数，允许其用户获取一个矩阵，其中包含一些定量变量的描述性统计数据。这不是太难，但我不知道如何让用户选择他想要的..

Descriptives=function(w=2,y=stats.data.quant.col) {

    ## w = decimals (2 by default)
    ## y = stats.data.quant.col (by default) OR stats.data.quant.row

    data.quant=data[,sapply(data, function(x) is.numeric(x) | is.integer(x))]

    stats.data.quant=apply(data.quant,2, function(x) c(Nobs=length(x),Moyenne=mean(x),Mediane=median(x),Variance=var(x),Ecart.type=sd(x),Etendue=max(x)-min(x),Coefficient.variation=sd(x)/mean(x),Deciles=quantile(x,seq(0.1,0.9,0.1))))

    stats.data.quant.row=round(stats.data.quant,w)

    stats.data.quant.col=round(t(stats.data.quant),w)

    y

}

谁能给我一个提示？我现在很迷茫

Answer 1

您需要以交互方式读取用户输入。方法如下：

cat("Which of these fine output versions would you like? ")
cat("Version A: Statistical results")
cat("Version B: Pretty plots")
x <- readLines(file("stdin"),1)print(x)
if(x == "A"){
   # your code goes here
} else{
   # default output
}

您也可以使用scan 函数代替readLines。