我正在尝试计算数组中每行的总和并将其放在向量中, 你可以在下面找到我的尝试,
为此,它为前4个打印相同的值,为最后1个打印不同的值$html = View::make($url)->render();
我想要的是例如
215 215 215 215 316
并将值Sumx1放在矢量中。
这是我的尝试
x1 2 4 4 6 7 Sumx1=??
x2 1 2 3 4 5 etc
x3 1 2 3 4 5
x4 1 2 4 5 6
答案 0 :(得分:0)
library(shiny)
ui <- fluidPage(
selectInput("numberchoice",label = "Choose an image", choices = c(1:6), selected = 1)
,
imageOutput("image")
,
radioButtons("answerchoice", "Answers", choices = c(2:6))
)
server <- function(input,output,session) {
answers <- read.csv("~/Answers.csv")
questions <- read.csv("~/Answers.csv")
output$image <- renderImage(list(src = paste("~",".png", sep = "")
,contentType = "image/png", alt = "Face"),deleteFile = FALSE)
eventReactive(input$numberchoice,{updateRadioButtons(session,"answerchoice",choices = questions[input$numberchoice,2:6])})
}
shinyApp(ui = ui, server = server)
尝试删除内部循环(具有变量c的循环)。应该工作。
答案 1 :(得分:0)
由于你的内循环c,你将和pay[i][0]+pay[i][1]+pay[i][2]+pay[i][3]
加到向量上四次。
您真正想要的是以下内容,
for(int i=0; i<5; i++){
int sum = 0;
for(int c=0; c<4; c++)
sum += pay[i][c];
totals.push_back(sum);
cout<<totals[i]<<" ";
}